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SECTION I 



INTRODUCTION 



INTRODUCTION 



The 1620 Monitor I programming system should be learned in two phases. 
The first phase should provide an understanding of the need for and the 
advantages of any monitor, introduce the job and control card concepts, 
and identify the components of the system and the way they support each 
other. The second phase should provide the ability to use Monitor I on 
an IBM 1620/1311 system to accomplish typical program assemblies and 
executions and disk storage functions. 

Both phases of learning the Monitor can best be realized by using a 1620 
disk system, first for demonstration and then for testing problem solutions. 
If no 1620 is available, the course should still be divided into two phases, 
and the second phase should still be heavily problem-centered. This 
requires an instructor who has had firsthand experience with Monitor I. 
Students cannot learn Monitor I using a detail-centered approach. 

The course will be greatly improved if students bring their own SPS and 
FORTRAN problems to the class. 

Monitor I greatly increases throughput on an IBM 1620/1311 system and 
greatly simplifies disk storage utilization. These advantages must not be 
obscured by the instructor's attitude or method of presentation. 
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BASIC TEACHING PRINCIPLES 



Here are a few basic points to consider and remember before teaching. 
They touch only the surface of the task but will save you from gross errors. 



How to Employ the Principles of Learning 



Motivation 

1. Show a need 

2. Use students T motives 

3. Develop intent to learn 
4 # Maintain interest 

5. Encourage early success 

6. Give recognition and credit 

7. Avoid adverse feelings and 
emotional barriers to 
learning 

8. Use competition 

9. Use rewards and punish- 
ments when needed 

Objective 



Background 

1. Build on what the student 
already knows 

2. Use review frequently 

3. Draw on class experience 
for illustrations, stories, 
and examples 

Incidental Learning 

1. Teach the student - not 
just the subject 

2. Set a good example 

3. Remember you determine 
his attitude 



1. Tell the student what he is 
to learn and what is ex- 
pected of him 

2. Present each unit as a 
part of a whole 

Doing 

1. Plan for student activity 

2. Devote as much time as 
possible to student 
practice 

3 Ask questions 
4. Use problems 

Realism 

1. Teach in terms of field 
conditions 

2. Stay on the level of the 
class 

3. Explain subject in terms 
of how it will be used by 
the student 



Tips on Delivery 
Contact 

1. Secure attention 

2. Look at and talk to the 
class 

3. Be conversational 

4. Don't talk down to the 
class 

5. Show a genuine interest 
in your students 

Bearing 

1. Check appearance 

2. Watch your posture 

3. Make movements mean - 
ingful 

Mannerisms 

Avoid those things which 
cause the class to con- 
centrate on you and what 
you are doing rather than 
on your communication 
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Tips on Delivery 



Proper Use of Training Films 



Enthusiasm 

Present instruction force- 
fully, enthusiastically, 
but naturally 

Emphasis 

Use repetition, gestures, 
pauses, and variations in 
rate, pitch and intensity 

Volume 

Make sure you can be heard 

Be Understood 

1. Speak the language of your 
class 

2. Be sure your ideas are 
getting across 

3. Enunciate clearly and 
pronounce correctly 

Don't Make Excuses 

Don T t apologize; You 
can T t sell your subject 
with a negative attitude 

Proper Use of Training Aids 

1. KEEP AIDS OUT OF SIGHT 
WHEN NOT IN USE 

2. Select the appropriate aid 

3. Prepare for use of the aid 

4. Explain aid to the class 

5. Show so all can see 

6. DO NOT obstruct students' 
view 

7. Use a pointer if necessary 

8. Talk to the class - not the aid 

9. Use assistants to best 
advantage 

10. Display aids smoothly 



1. Preview critically and select 
film for specific instructional 
purposes 

2. Check equipment 

3. Introduce film properly; Tell 
students what it is about and 
what they should look for 

4. Follow-up by practical applica- 
tion, oral discussion, or short 
quiz 

How to Use the Blackboard 

1. Check on equipment to be used 

2. Check for glare 

3. Keep chalkboard clean 

4. Don T t crowd your work 

5. Plan your work in advance 

6. Keep material simple and brief 

7. Print and draw on large scale 

8. Erase unrelated or used 
material completely 

9. Use color for emphasis and 
variety 

10. Prepare complicated illustra- 
tions beforehand 

Tips on Questions and Quizzes 

Ask questions which: 

1. Have a specific purpose 

2. Are clear and concise 

3. Emphasize one point only 

4. Require definite answers 

5. Are phrased so as to dis- 
courage guessing 

6. Are related to the how and 
the why 

7. Stress the vital points of the 
instruction 
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Tips on Questions and Quizzes 



Answering questions: 

1. Be sure you understand 
the question 

2. Repeat the question aloud 
before answering 

Quizzes 

1 # These are really slightly 
more formal questioning; 
You should make up one 
or two brief quizzes to 
check on student under- 
standing of your material 
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COURSE DESCRIPTION 



Course Description 

1620 DPS MONITOR I PROGRAMMING SYSTEM 



Provided for - 

People who will be programming and operating the IBM 1620 
using the 1620 Monitor I System. 

Objectives - 

Upon successful completion of the course, the student is able 
to: 

1. Discuss accurately the advantages and functions of the 
1620 Monitor. 

2. Prepare control cards used in the various jobs that can be 
run under Monitor control: SPS, SPSX, FOR, FORX, 
XEQ and DUP. 

3. Dump and analyze the system tables and any other disk 
data. 

4. Prepare control cards that will store or call SPS or 
FORTRAN object programs from disk storage. 

5. Write programs using the SPS and FORTRAN disk input/ 
output macros to put or get data. 

Prerequisites - 

Students enrolled must have successfully completed the 1620 
Basic Programming Course, including a study of FORTRAN 
and the IBM 1311 Disk Storage Unit. 

Course Code - 

P 2742 



Copies of this and other IBM publications can be obtained through IBM Branch 
Offices. Address comments concerning the contents of this publication to 

IBM DPD Education Development, Education Center, San Jose, Calif. 




PRINTED IN U.S.A. 



R20-9036-0 



Material Required for Conduct of Course - 



Student Materials (Normally one copy per student) 

Title Form No. 

1620 Monitor I System Specifications C26-5719 

1620 Monitor I System Reference Manual C26-5739 

1620/1443 Monitor I System Specifications C26-5757 

1620/1710 SPS and Absolute Coding Sheets X26-5627 

FORTRAN Coding Forms X26-7327 
Student Handouts 



Abstract Ref . 

SRL 1620-00 
SRL 1620-00 
SRL 1620-00 
SRL 1620-00 
SRL 1620-00 
See below 



Instructor Materials 

1620 Monitor I System Education Guide R20-8005 See below 

1620 Monitor I System (card) 1620- PR- 025 



Abstract - 



R20-8005 1620 Monitor I Programming System Education Guide 

8 1/2 x 11 Looseleaf Instruction Outline - 150 pages 
(Brown cover) 

This guide contains two alternative course outlines to be used in 
teaching a five-day programming course (three days for IBM 
classes). Included in the guide are reproductions of a set of 18 
flipcharts used in conjunction with one of the outlines and an 
extensive set of student handouts to be used with the alternative 
outline. Flipcharts and handouts are to be reproduced locally. 

Major topics included in the guides are: Introduction to the 
Monitor; JOB Concept; Supervisor; Disk Utility Programs; New 
SPS Features and Macros; FORTRAN Disk Macros, and FORTRAN 
Data Storage. 
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SECTION HI 



GENERAL COURSE OUTLINE 1 



1620 MONITOR I TOPICAL OUTLINE 
WITH VISUALS 



I Introduction to Monitor 

Monitor Concept 
Features of Monitor 
Advantages 

Structure of the Monitor 

n SPS Processor 

New Features 
I/O Macros GET 

PUT 

SEEK 

III Format of Object Program 

Other Macros CALL 
CALL 
CALL 

IV SPS Control Cards 

Notes on Assembly 

V FORTRAN 

Data Organization 
New Macros DEFINE DISK 

FIND 

FETCH 

RECORD 

Method of Data Reading 

Matrix versus Element Input and Output 



EXIT 
LINK 
LOAD 
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VI 



FORTRAN Control Cards 

FORTRAN Processor Notes 



VII Disk Utility Programs 
DIM Table 
Equivalence Table 
Sequential Program Table 
DELETE and DEFINE PARAMETERS 



VIE JOB Concept 
JOB 

END OF JOB 

Other Control Cards 
TYPE 
PAUS 



IX Review Disk GET and PUT 

Additional Operands 

X SPS n-D Modification Program 

Op Code Definition Cards 

XI Addition of SPS Subroutines 
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SECTION IV 



DETAILED COURSE OUTLINE 1 



( 



I Introduction 



Organization of Presentation . 

Start off with a description of the system and how to use it. 
Program using Monitor. Then go back over the material in 
more detail and look at the internal workings of the processor 
- what is generated, how the loader works, etc. Hold off 
questions in this area until then. 

1. Discuss Monitor Concept 

To control the operation of several unrelated routines and 
machine runs so that the computer and computer time are 
used advantageously. 

Something always wanted on 1620 - available on large scale - 
now 1311 makes it possible! 

FLIP CHART 1 - before Monitor 
FLIP CHART 2 - with Monitor 

2. Features 

Somewhat similar to Autotest on 1401- i. e. , stack jobs with 
control cards. 

FLIP CHART 3 

permits FORTRAN compilation 

FORTRAN compilation and run 

SPS assembly 

SPS assembly and run 

SPS run of previously assembled 

FORTRAN run of previously assembled 
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3. Advantages 

FLIP CHART 4 
What do we have to pay for these advantages? Very little! 

Machine requirements: 

- only 20K 

- at least one 1311 

- indirect addressing 

- auto divide 

- either card or paper tape I/O 

Control cards 

- must make up some for each operation; 

quite straightforward 

Some core occupied by Monitor at all times, but 
this is offset by segmenting ability 



4. Structure of Monitor 

FLIP CHART 5 

Four parts: Supervisor 
DUP 
SPS 

FORTRAN 

Supervisor - overall control of Monitor 

- reads and analyzes control cards 

- calls from disk the appropriate program 

- always on disk; if it gets lost, can load 

one card to recall it and start over 



Disk Utility Programs - DUP 

- set of commonly needed utilities such as 
dump, load programs to disk, delete 
programs; discussed later in detail 
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SPS and FORTRAN 

- the normal type processors, but new 

and more powerful 

- convert source statements to machine 

object programs 

- make use of some of DUP for assembly 

options 



H SPS Processor 

1. Discuss New Features Unique to the Processor 

a. B7 and BB2 

- could accomplish this by following with DORG, but 
this is simpler for programmer 

B7 B xxxxx 

DORG* -3 

BB2 — BB 

DORG* -9 

b. Can have blanks in flag operand 

c. New declarative 

DVLC - permits programmer to set up a series of 
adjacent constants^ not necessary they be 
same length 

FLIP CHART 6 

- a symbolic length may be used and must 
be previously defined 

- constants may be symbolic and need not 
be previously defined 

d. Don T t need to, but may type RM after an instruction 
from typewriter 

e. DNB can be up to 99 



i 



4.3 



f. No SEND or ALOW 

ALOW is instruction for 1710 which unmasks 
during loading to permit interrupt. 

g. DSAC - same as DAC, but addresses low-order digit. 

h. The really significant changes are I/O macros 

GET, PUT, SEEK 

2. I/O Macros 

FLIP CHART 7 

GET - must convey to processor 
device 

mode - alpha or numeric 
I/O area 

Rather than specify in macro, operand references a "define r TT 
which is a constant conveying the information. 

Discuss non-disk first. 

Example: 





GET 


DEFl 


DEFl 


DCA 


, IOAREA 


IOAREA 


DAS 


80 



The definer op. code DCA specifies card I/O and alphabetic 
mode. The operands are: 

- the address at which constant is located 
(normally omitted) 

- the address of I/O area 

There are other definer op. codes. This generates: 
DSA IOAREA 
DC 3,IO@ 
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Other definers generate different const. 

- GET, PUT, SEEK for disk 

- simplest type - no relocation 

- nothing on generation 

(get Idef 



DEF 
DCNTL 



DD(W) 
DDA 
DC 



, DCNTL 



1,@ 

For disk use DDA, not DAS or DSS. 
Review DDA 

FLIP CHART 8 

- DDA entry may be used to define disk control 
field - has 5 operands: 

(1) address of constant - must be even; may omit 

(2) drive over-ride code - even or zero - no override 

(3) 5 -digit sector address 

(4) number of sectors 

(5) I/O storage area - even 

For Monitor, must follow DDA with + . If reach end of 
cylinder, with more sectors to go, will automatically 
increment over to next cylinder and proceed. 

PROBLEM - set up macros and any required declaratives 
to: 

- Read a card in numeric in IOl 

- Type an alpha message for area 102 

35 characters 

- Position the arm and then read 3 sectors 
from disk beginning at sector 12 3 4 5, 
w/o WLR into 1/03 



4.5 



SOLUTIONS 
(1) 

DEF1 
lOl 



IGET 

DCN 
DSS 



DEF1 

,101 
80 



(2) 



DEF2 
102 



PUT 



DTA 
DAS 
DAC 



DEF2 



,102 

35 

1,@ 



(3) 





GET 


DEF3 


DEF3 


DD 


, DCNTL, , ,A 


DCNTL 


DDA 


,0, 12345,3,103 




DC 


1,@ 




DORG 


* + 2 


103 


DSS 


300 



Format of Object Program 

- core image 

- systems output format (reloadable) 

absolute 
relocatable 

- rules for relocation 

- no DORG permitted with absolute address 

DORG at zero 

Why relocatable: 

- permits programs to be in core in different 
locations at different times 

- no problem to code - handled automatically 



4.6 



Other macros besides GET, PUT, SEEK 

CALL EXIT - this is last executed step in users SPS 
program and generates a return to the supervisor to 
process the next job. Generates a Branch MONCAL. 

CALL LINK,xxxxxx (or NNNN) 

- provides the segmenting ability 

- pulls in the program named from disk and begins 

executing 

- may, if relocatable program, specify a relocation 

address 

- if not, will stack them in successively higher core, 

starting at 2402 

CALL LOAD , xxxxxx (or NNNN) 

- pulls in the program, but does not execute 



IV SPS Control Cards 

- precede SPS deck and govern manner in which assembly is performed 

- no longer controlled by sense switches 

Give example: Want to assemble SPS, store back on disk, type 
symbol table and give program a name so can 
execute later, and stop and enter new statement 
on error. 



* TYPE SYMBOL TABLE 

* STORE RELOADABLE 

* NAME CRPATH 

* ERROR STOP 

Discuss other control cards except *SYSTEM SYMBOL TABLE 

*LIBR 

*NO SUBROUTINES 
*ID NUMBER 
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- may have no SPS control cards 

- discuss Monitor control cards - which call SPS processor 
in to analyze SPS control cards 

SPS 

SPSX 

XEQ 

- show examples of assemble, assemble and execute, execute 

Notes on New Assembly 

- 4K symbol table in core - 235 max 

- if overflow, shifts this batch to disk and builds 4K more 

- fixed length entries (17 digits) 

- search whole table for mult-defined - slower if must go 

to disk 

- additional storage - all for symbol table 

- intermediate output to disk unless 2 pass 

- all final output to disk only; output is by DUP, automatically 

FORTRAN 

- get all capabilities of FORTRAN n - 

i. e. sub-programming 

- only change to language specifications is inclusion of 

disk commands 

1. Data Organization on Disk 

- can specify ff- and kk- length of fix and float 

- can specify how many words to be stored per record 

- a record consists of up to 200 characters 

- both fixed and floating are stored the same size, whichever 

is max. 

- if this max, size X number of words/record < 100, one record 

is equivalent to 1 sector 

- if max. size X number of words/record > 100 and < 200 (limit), 

then 1 record is equivalent to 2 sectors 
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- must organize the data in the order in which it is to read - 

like a tape record where must pass whole record to pick 
out any one field 

- each data record is numbered, starting with 1 and on up, and 

data is addressed by this record number (FLIP CHART 9) 

- record 1 is 218 sectors from beginning of work cylinder - 

0-23 normal 

New Macros 

DEFINE DISK 

Form DEFINE DISK (n-^ , ng) where n^ is number of words 
per record; ng is total number of records to be reserved 
for data - used for cylinder reservation. 

Note: If make ng too large, processor automatically cuts 
it back to maximum allowable. 

Define disk in mainline only, not in sub-programs 

I/O Commands : since data is written on disk in constant 
length, i. e. , both fixed and floating are the same size, 
there is no need for a format statement to be associated 
with disk reading and writing. 

The three I/O commands are: 



RECORD ) 

Form -FETCH(I), A, B, C, D, E 

- where I has a value from 1 to ng and 

refers to the record number 

- I may be fixed pt. variable, subscripted 

or not 



FIND 
FETCH 



FLIP CHART 9A 
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- depending upon the value of n^ 

(no. words/record), several records 
(sectors or pairs of sectors) may be read 
before the list is satisfied. 

Example : 

- if n^ = 2, then records I, 1+1, and 1+2 
would be read. 

Note: If list is not satisfied at end of one 
record, the value of I is actually incremented 
by 1 in core and reading resumes. At the 
end of the read, when the list is satisfied, 
I will be incremented to 1 past the last 
record read. 

Problem 

Given ff =12, kk = 4, n x = 10 

a. how many sectors per record? 

b. what would be most efficient value 
for n^ given f and k? 

c. if, for example, 1 = 6 

(FETCH (I), A, B, C, D), what will 
I be after operation? 

Solution 

a. 2 length = 12 + 2= 14 * 10 = 140 

b. 7 7 x 14 = 98 

c. 1 = 7 (has read only 1 record; 

increments by 1 even though 
1 record = 2 sectors) 



/ 
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Note : Since FETCH(I) causes value of I 
to increment, should not use this as index 
of DO containing FETCH. 

Example: DO 101 = 1, 10 l Invalid 

10 FETCH(I), A(I) J 

Rather : 1=1 

DO 10 J = 1, 10 
10 FETCH(I), A(J) 

Here A(J) is first word in each record (if n= 1, only 1) 
and I is automatically incremented. 

Note: FETCH(I) includes a seek to the proper 
cylinder, if necessary. If not, reading begins 
at once. If seek is required, seek time is 
interlocked. 



FIND 

To avoid this interlock, may wish to precede FETCH by a seek 
or FIND (I). Processing can then be carried out while arm is 
being positioned. 

Example: I = 10 

FIND (I) 

calculate 
previous 

FETCH(I) 

However: 

FIND only initiates a seek if it is needed; this 
is also true of FETCH and RECORD. 

If disk operation occurs between FIND and FETCH 
(this could be initiated with the assemble inst. ), 
then will seek new location, read or write, then 
reseek. Unless very sure which cylinders data 
is on, don't use FIND. It may actually slow down 
program. 

(End of first day in two- 
day class) 
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Method of Data Reading 



- when reading or writing a list of elements, obviously 
must set up an I/O area (beginning in even location) and 
build the record there 

- this involves data movement within core as well as core- 
disk movement 

- can avoid this if output entire matrix at a time, as do in 
READ and PUNCH - i.e., FETCH (I), A where A is a 
singly, doubly, or triply defined matrix, and where I is 
record number of beginning 

- this is much faster 

- in order to read directly into matrix area, core location 
must be even; this is assured only if ff and kk are both even 

- matrix write packs data without regard for n 

- may even be faster to set up dummy matrix - e.g., to output 

3 values, set up X(3), move values to matrix and RECORD(I),X 

- if write with matrix, must read back in same fashion 

- cannot mix element and matrix reads in one I/O command 

- matrix operation does WLR check thru GM stored on disk 
in order not to overlay beyond the dimensioned area 

- can work only on pack upon which work area is defined to fall 

EXIT 

- pause will generate as normal; stops, then goes to 
next step 

- STOP, generates halt and then a BRANCH to MONCAL 

- CALL EXIT - branches to MONCAL; L e. , back to 
Monitor with no halt 



4.12 



CALL LINK 

- similar to call link in SPS 

- used to pull in another mainline core load and 
branch to the first executable program 

- not used to call subprogram; this is done in 
normal fashion with CALL SUBPROGRAM 

Note : No CALL LOAD available in FORTRAN. 

In order to pass data from one FORTRAN 
program to another (when the two are not 
executed in sequence), must use a DCOPY 
prior to executing the FORTRAN to make 
the data available in the work cylinders. 
Must be sure and not place it in work cylinders 
where it would be destroyed during FORTRAN 
program loading. Certainly no less than 218th 
sector of work, since this is always record 1. 

FORTRAN Control Records FLIP CHART 10 

FANDK - vary length, at compilation time, of floating and 
fixed 2-28, 4-10; can, at execution, specify 
a smaller f and k if desired 

punch out symbol table and addresses of numbered 
statements 

punch object program in system output format 

store program on disk by name; don T t need name 
on FUNCTION or SUBROUTINE subprogram 

must follow program for execution before data can 
be entered (not needed SPS) , and even if no data 



PSTSN - 

POBJP - 
LDISK - 

DATA - 
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LOCAL - specifies that certain subprograms are to be 
loaded on call only; many can occupy same 
storage area one at time 

Form: *LOCAL, MAIN, SUB1, SUB2, SUB 3 

- number of LOCAL cards specified in 
FORK cd. , or XEQS card 

- maximum of 50 per mainline 

- LOCAL can f t call subroutines or 
subprograms not already in CORE; 
may desire dummy call in mainline 

FORTRAN Processor 

two passes internally 

have option of two subroutine sets for fp., hardware or not. 

short form occupies up 7500 and long form to 14000 

use long if possible, otherwise short; long is faster - 

doesn f t have to keep going back to disk 

all links in a program will use same subroutine set 

statement numbers now direct branches; no longer branch 

to branch 

subscripting routines are new 

- literal subscripts handled at compile - faster 

- double and triple subscripting not in line; go to 
subroutine (same routine, two enters); slower, but 
shorter 

Overflow Storage 

If get overflow: 

- use short subroutines 

- pull subprograms and make LOCAL 

- segment mainline CALL LINK 
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VII Disk Utility Programs 

- a series of handy utilities written and included under 
control of the supervisor 

- relieves programmer of costly, time-consuming burden 

- called by Monitor card DUP 

Routines - FLIP CHART 11 

- performed as part of assembly or 

- coded control card calls them 

1. Disk Identification Map - DIM 

a. used by all phases of the Monitor to find data and 
programs in disk 

b. on cylinder 24, up to 999 20-digit entries; can expand 
to 5 cylinders - 4995 entries 

c. format - FLIP CHART 12 

2. Equivalence Table 

a. no names in DIM entry 

b. have a table giving DIM number equivalent to a named 
program 

c. form 12 for 6 alpha; 4 DIM number 0001 

d. cylinder 25 - 80 sectors - 500 names 

e. first 51 are used by systems 

f . can add to end or delete from middle and squeeze up 

g. DIM X 2 + 048000 : 5 left = sector; right 1 = entry 
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3. Sequential Program Table 

a. cylinder 99 on each pack - sector 1-80 

b. lists contents of pack and empty places 

(if they ask about format, see Ref . Manual) 

Pack Label: sector 0 of cylinder 99 

Monitor Core Req. : 00100-02401 - IORT or LOADER 
Update DIM 

- automatically handled when causes program to be loaded 
or DUP f n to be performed 

- see chart - pg. 25 of Monitor booklet 

- see above (pg. 25) ID number SPS control 

4. Examine Two DUP Programs in Detail 

DELETE 

a. Function 

- to delete a program along with its associated DIM 
equiv. and seq. program entries 

- does not fill in space, but will come back and drop 
in a suitably sized one 

b. Control Card 

*DELET XXXXXX NNNN 

Either one - not both 
DEFINE PARAMETERS 

a. Function - to define size and layout of areas on disk 
and establish other stnds 

Normal WORK 00-23 
DIM 24 
EQUIV 25 

b. Control Card - - - FLIP CHART 13 
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VIE JOB Concept 

( 

Several Monitor control cards we haven't looked at yet. 
Intermix systems: 

MONITOR CONTL. 

SPS, FORTRAN or DUP CNTL. 

SOURCE PROG. 

DATA 

etc. 

1. JOB concept - enables us to tie together several programs. 
Example: If PROG 1 calls PROG 2, then can't execute either 

until both are assembled. 

a. want supervisor to treat the two programs as one job 

b. use Monitor control card JOB and END of JOB ( f f + f ) 

c. may make each program a separate job 

FLIP CHART 14 

d. if prog, error in job, does not execute any others in 
that job, but will continue assembly and do SPS output 

2. Other Control Cards 

TYPE - calls for control cd. from type 

PAUS - halt, permit switch setting, etc. ; handy in FORTRAN 

Comments -ft —Col. 7-80 — ~ — 

follow by another control 

- module # on drive - to flip flop disk 

- shouldn't use last card check; use trailer card instead 

(Go back to some features we skipped. ) 
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Review Disk GET and PUT 

- can specify for disk PUT - RBC 

- a disk GET or PUT references a DDW or DD 

- we have looked at two operands; e. g. - 



DD 



,CONl 



DD may have additional operands 

- relocation address 

- reposition RW heads 

- actual or relative sector 



DD 



, CON1, 16000, R, A 

generation: 

short form 

long form 



M Q M 1 XXXXX f 

M n M 1 XXXXX XXXXX + 
0 1 f j 

address relocation 



of DDA 



address 



Values of M Q? M 1 



M 



0 



relocatable 



0 - due to no entry A - make sector 

address in DDA relative to start 
of work cylinder; this const, 
stored in 422 -425 

1 - update "high storage used" indicator 

as well as zero 
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absolute 




use sector address as specified 
use sector address and update high 
flag over M Q says reposition to a 
specified cylinder 



n 



M 



1 



sector 
mode 



0 



with WLRC - user puts t at end of 
data in core 



12 - without WLR 
4 - track mode with WLRC - user puts t 

at end of data in core 
6 - track mode without WLRC 

All possible combinations can't be achieved thru 
macro's - may have to code the linkage directly 

Example: track mode 



SPS II-D Modification Program 
Functions: 

- to modify the SPS processor 

- add or delete mnemonic op. codes 

- add or delete SYSTEMS SYMBOL TABLE items 

To call : stored in Monitor as SPSLIB 

Monitor control card : XEQ SPSLIB 

SPS Mod. Control : FLIP CHART 15 

Op Code Definition Cards - FLIP CHART 16 



Example: to set up mnemonics to write on printer 
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write numeric: 



38 PPPPP Q09QQ 



use XY3 



PRN 



893 



3®PPPPP Q0(9)QQ 



write alpha: 



PRA 



993- 



3(9)PPPPP QO®QQ 



Note: 



various sizes of mnemonic op. codes have 
max. allowable. Example: 

— 16 3 digit 
^14 4 digit 

If get message NO ROOM, try again with different 
number of digits in mnemonic - then may fit. 

Note : DELETE OP CODE - not cricket to delete 
such codes as TF, etc. 



Define System Symbol Table 

- permits commonly used symbols to be always defined; 
not required to be defined in users program 

- system already has some, may add others, up to 150 

Example : 



*DEFINE SYSTEM SYMBOL TABLE 



6-11 

xxxxxx 



12 - 15 
f 

blank 



16 



-75 



absolute address 
or symbolic operand 
already in SST 

if use positive operand - absolute 

if use negative operand - relocatable 



Example: 



PROD 



00099 

when define new one, must redefine old as well 
since immediately deletes all user-defined 
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Addition of SPS Subroutine Macros 

modify op. code table to include new mnemonic 

write subroutine in SPS 

assemble relocatable and store on disk 

See FLIP CHART 16 

- subroutine scheme is changed - PICK time reduced 
from 9 to 5 ms. 

- Control cards to assemble MACRO sub 

FLIP CHART 17 

a. now 17 subroutines; may add 12 more, #18 to 29 - 
space reserved in DIM table for these, 

b. to calculate DIM no. for ID no. entry, take base no. 

130 - fixed divide (subroutine set 01) 

100 - fixed length (sub set 02) 
70 - variable length (sub set 03) 
40 - auto f. pt. hardware (sub set 04) 

and add subroutine # (18 - 29) to this 

Example: first new variable length = #18 
_____ ^ ^ ^ 

DIM entry for subroutine - FLIP CHART 18 
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Practice Problem 

What are control cards necessary to enter macro XYZ, 
the second new macro, into OPCODE TABLE ? 

Solution 
ff JOB 

^XEQ SPSLIB 

* DEFINE OP CODE 



XYZ 



191 



* ENDLIB 

if not familiar with writing subroutines, use of PICK, 
etc. , let's look at this later. 
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SECTION V 



FLIPCHARTS FOR OUTLINE 1 



! 



HEADER 

1620 MONITOR 



FLIP CHART 1 

1620 with many people running around and cards flying 
(TURMOIL) 

FLIP CHART 2 

1620 plus 1311 - no people 
(ORGANIZED) 



5.1 



Object Program 

V 

from the 
Disk 




FLIP CHART 3 
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FLIP CHART 4 
ADVANTAGES 

- Reduce Set -Up Time 

- Processor Loading 

- Program Organization on the File 

- Complete Log of Operations 

- FORTRAN H for 20K 

- Expanded Error Checking 

- Versatile I/O Macros 

- Easy Program Segmentation 

- Commonly Used Disk Utilities 

- Virtual Load / GO - FORTRAN - SPS 
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FLIP CHART 5 



1620 MONITOR I 



1620 
SUPERVISOR 



L 


1 




FORTRAN 




1620/1710 




1620 


H-D 




SPS H-D 




DISK 


COMPILER 




ASSEMBLER 




UTILITIES 



FLIP CHART 6 



DEFINE VARIABLE LENGTH CONSTANT 



VLC 
STRING 



ADDRESS, LENGTH 1, CONl, LENGTH 2, CON 2 



DVLC 



,3,100, 4, 7130, JOE, 612 



100,^7130 612 
STRING* 



FLIP CHART 7 

I/O MACROS 

SEEK - POSITION DISK ARM 

GET - READ AN INPUT RECORD FROM CARD, PAPER 

TAPE, TYPEWRITER OR DISK 
PUT - OUTPUT A DATA RECORD 
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FLIP CHART 8 

DISK CONTROL FIELD 

XXXXXXXXXXXXXX 

DRIVE SECTOR SECTOR MEMORY 
CODE ADDRESS COUNT ADDRESS 

FLIP CHART 9 



IF W* n 1 < 100 



SECTOR 


SECTOR 


SECTOR 


SECTOR 


SECTOR 








RECORD 


RECORD 


RECORD 


RECORD 


RECORD 








IF 100 < W* n x < 200 










SECTOR 


SECTOR 


SECTOR 


'SECTOR 


SECTOR 


SECTOR 


SECTOR 


SECTOR 


RECORD 


RECORD 


RECORD 


RECORD 



FLIP CHART 9A 



FIND (I) 

FIND (I) 

FETCH (I) LIST 

FETCH (I) A, B, X, Y 

RECORD (I) LIST 

RECORD (I) A, B, X, Y 



( 
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FLIP CHART 10 



FORTRAN CONTROL 



*FANDK 



ff 



*PSTSN 



n 



*POBJP 



n 



*LDISK 



nnnnnn 



nnnn 



FLIP CHART 11 

DISK UTILITY PROGRAMS - DUP 

WRITE ADDRESSES 
ALTER SECTOR 
DISK TO OUTPUT 
LOAD PROGRAMS 
REPLACE PROGRAMS 
DISK TO DISK 
DELETE PROGRAMS 
DEFINE PARAMETERS 
DEFINE DISK PACK LABEL 

DEFINE FORTRAN LIBRARY SUBPROGRAM NAME 
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FLIP CHART 12 

DISK IDENTIFICATION MAP - DIM 

DDDDDD SSS CCCCC EEEEE L 

D D D D D D - DISK SECTOR ADDRESS 
SSS - SECTOR COUNT 

CCCCC - CORE ADDRESS (ALL 9's RELOCATABLE) 

(UNITS FLAG RELOADABLE) 

EEEEE - ENTRY ADDRESS 

L - LAST CHARACTER FILE PROTECTED PERMANENTLY 

ASSIGNED 

+ YES NO 

i YES YES 

+ NO NO 

^ NO YES 
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FLIP CHART 13 



DEFINE PARAMETERS CONTROL CARDS 

SPECIFIES STANDARD FOR: 

- SECTOR ADDRESS OF WORK CYLINDERS 

- NO. OF WORK CYLINDERS 

- NO. OF DISK DRIVES 

- NO. OF SECTORS IN DIM TABLE 

- NO. OF SECTORS IN EQUIVALENCE TABLE 

- NO. OF SECTORS FOR SEQUENTIAL PROGRAM TABLE 

- FLOATING POINT MANTISSA LENGTH - SPS 

- SPS SUBROUTINE SET 

- NOISE DIGIT 

- LENGTH OF MANTISSA FOR FORTRAN 

- LENGTH OF FDXED POINT FOR FORTRAN 

- SOURCE OF INPUT FOR FORTRAN SUBPROGRAMS 

- CORE CAPACITY OF OBJECT MACHINE 

- CORE CAPACITY OF SOURCE MACHINE 

- FORTRAN SUBROUTINE SET 
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FLIP CHART 14 
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FLIP CHART 15 



SPS MODIFICATION CONTROL CARDS 

DEFINE OP CODE 
DELETE OP CODE 
LIST OP CODE TABLE 

DEFINE SYSTEM SYMBOL TABLE 
END LIB 



FLIP CHART 16 

OP CODE DEFINITION CARDS 



New Type of 

Mnemonic Instruction Type of 

Code Code Assembled Instruction Instruction 

Cols. 12-15 Cols. 16-18 



XYO 


X Y 


PPPPP 


QQQQQ 


ANY 


XY2 


3 X 


PPPPP 


Q 0 7QY 


DISK 


XY3 


3 X 


PPPPP 


Q OYQQ 


I/O 


XY4 


3 4 


PPPPP 


Q OXQY 


CONTROL 


XY6 


4 6 


PPPPP 


QXYQQ 


BI 


XY7 


4 7 


PPPPP 


QXYQQ 


BNI 


-XY4 


4 X 


PPPPP 


QQQQY 


MASK 


-XY2 


8 X 


PPPPP 


YQQQQ 


SIOC 



-XY1 MACRO SUBROUTINE NUMBER XY 
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FLIP CHART 17 

CONTROL CARDS TO ASSEMBLE 

SPS MACRO SUBROUTINES 

ASSEMBLE RELOCATABLE 
LIBR 

ID NUMBER ERROR STOP 



FLIP CHART 18 

DIM ENTRY FOR SUBROUTINE 

Ixxxxx 1 XXXXX 



LENGTH SUBROUTINE IDENTIFICATION NO. 
LENGTH - AUTOMATICALLY PLACED HERE 

SUBROUTINE IDENTIFICATION NO. SPECIFIED AS 
OPERAND OF DEND 



STORE RELOADABLE 




OPTIONAL 




XX 

SUBROUTINE 
SET# 



SUBROUTINE NO. 
18-29 



XX 



NO. OF 
ENTRY 
POINTS 



X 



( 
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TEACHING OUTLINE 2 
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IV 
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Disk Utilitv Programs 


7.3 


v 


sps n-D 
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VI 


FORTRAN II-D 


7. 4 


vn 


Disk Storaere Organization 
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IX 


Supervisor (Detail) 


7.7 


X 


Disk Utility Package 


7.10 


XI 


SPS H-D 


7. 13 


XII 


FORTRAN II-D 
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This outline attempts to be complete except where reference 
is made to supporting documents. Most of the needed detail 
information is available on the handout sheets, which are 
intended for use as take-home flipcharts. 

R refers to the 1620 Monitor I System Reference Manual, 
C26-5739-1. 

V refers to handout sheets included in Section VUI of this 
guide. 

i 
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SECTION VII 



DETAILED COURSE OUTLINE 2 
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1620/1311 Monitor I Preliminary Teaching Outline 
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July 28, 1963 



I. 



Formalities 



A. 
B. 
C. 



Name, location, telephone Produce Visual 
Position Produce Visual 

Class Title Produce Visual 



D. Class Purpose 

1. You get latest Monitor info 

2. I want your reaction, good or bad 

3. I want your recommendations 

E. Class Prerequisites 

1. 1620 System 

2. 1311 Mod 3 

3. 1620/1710 SPS 

4. 1620 FORTRAN II 

5. 1620 Monitor I C26-5739 

F. Class Duration - hours 

G. Class Style 

1. Informal - questions any time 

2 . Attendance 

3. Left to student to separate between external specs, operation, 
internal organization, and internal operation 

4. Question of release to customers 

5. Exchange of ideas 

H. Message Center 

I. Class Sign-up Sheet Containing: Route around, duplicate 



1 . Name 

2 . Title 

3. Location 

4. 1620/1311 Accounts 

II • Monitor I - Introduction 

A. Why? Philosophy of repetitive functions R-4 

B. Functions 



and pass out 
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1. File maintenance 

2. I/O coordination 

3. Job to job continuity 

4. Control over system programs 

C, Precedents 

1. File maintenance - many program systems and monitors 

2. I/O coordination - many program systems and monitors 

3. Job to job continuity - all monitors 

4. Control over system programs - all monitors 

D, History of Specs 

1 . Announcement in planned program 

2 . Preliminary manual 

3. Preliminary release to region 

4. Preliminary release to field 
5. 

E, Status of System 

1. Early release to PID 

2. Scheduled release of final version 

F, Major Sections 

1. Supervisor 

2. Disk Utility Package 

3. SPS 2-D 

4. FORTRAN 2-D 

G, Machine Requirements R-8 

1. 20K 

2. IA 

3. Card or P.T. I/O 

4. 1311 Mod 3 

5. Hardware Divide for 



R-4 
it 

ii 



a. 
b. 



FORTRAN object programs 

SPS object programs using certain subroutines 



III. Supervisor - Super 



A. Overall Coordination 

1. Between jobs (job concept defined later) 

a. Determine required function 

b. Locate and pull down working program 

2. Within job 

a. Prevent system shut-down 

b. Supply I/O routines as required 

B. Maintains Communications Area expand later 

i.e, records and updates system status 

IV. Disk Utility Rrograms - DUP 

(under control of Super) 
Generalized Routines for 

A. Specific Functions (see list) V 

B. Use by Other Parts of System 

C. Note Function as Disk Storage Clerk 

V. SPS 2-D 

A. Incorporates 

1. 1620/1710 SPS 

2. 1710 SPS II 

B. Additions 

1. Disk I/O capabilities 

2. I/O Macros 

3. System options 

C. Will Discuss 

1. New capabilities 

2. Interesting, obscure portions from 1710 SPS II 



VI. FORTRAN 2-D 



A. Incorporates FORTRAN II 

B. Additions 

1. Disk statements 

2 . System options 

C. Will Discuss 

1. New capabilities 
VII. Disk Storage Organization - 3 tables 

A. Equivalence Table 

1 . Content 

a. Name 

(1) Concept 

(2) Definition 

b. Number 

2. Function (reduction of alternatives) 

3. Format 

4. As delivered 

a. Position on disk (always follows DIM table) 
cyl.25,sec00-79 

b. Capacity (500); max 6240 (999 sectors) 

c. Reserved entries 

(1) F. lib subr names (50) 

(2) SPS 2-D modification prog. 

(3) If unused - all nines 

5. Type - packed to the "left" 

6. Use - determine DIM number when given name 

B. Disk Identification Map (DIM) Table 

1 . Entry content - explain general function 



a. Disk sector address 

b. Sector count 

c. Core address 

d. Entry address 

e. Status type 

2. Function of entry - description of disk area 

a. Defines limits of area 

b. Defines type and other info for retrieving program 

c. Defines status for file maintenance programs 

3. Format V-3 

Note similarity with disk control field 

4. Table Type - Sequentially ordered on DIM no* 

Explain interaction with Equivalence table 

5. As delivered 

a. Location 

(1) Cylinder 24 

(2) Cannot be changed 

b. Capacity - 999 entries; max - 49995 entries (5 cyl) V-4 

c. System entries 

6. Use - locate storage information given DIM no. 
Sequential Program Table R-10 
1 . Content 

a. Cylinder numbers 

b. DIM numbers 

c. Sector counts 



2. Function - Image of disk usage, each pack 

3. Format V-5 

4. Type - pack to the "left", i.e. left- justified 
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5 • As delivered 

a. Location - cyl 99, sec 2-81 

b. Capacity - 2000; max - 2500 (100 sec) 

6. Use (principle) to locate available storage 



D. Working Storage 



1. Definition - DIM entry 0001 

2. Content - Scratch area 

3. Function - To provide work area for all programs 

4. As delivered - cyl 00-23; max 99 (with 2 drives) 

5 . Use 



a. Supervisor - between programs only 

b. DUP - program loaders and control info as needed 
Co SPS - temp storage of output partially decomposed 

programs and tables 

d. FORTRAN - temp storage of output partially 
decomposed programs and tables 

e. Object program - data and subprograms as needed 



E. Labels - Each Pack 



1. 1400 - 1620 common label 



a* Location - cyl 99, sec 181 - 199 

b. Use - interchange with 1400 series equipment 

c. Defined - DIM 0151 and 0155 

2 . Monitor 



a. Location - cyl 99, sec 1, pos 00-04 

b. Use - pack ID (system = 00001) 

VIII. System Start-up V-6 



A. Disk Integrity Lost 
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B. Core Lost, Disk OK (cold start) R-8 

C. Supervisor lost Control, Core OK - You Think! 

(lukewarm start) 

IX. Supervisor (in detail) 

A. Monitor Control Records R-12 

1. Function - op codes to the Super 

2. Ident - dbl RM, pos 1 & 2 

3. Types V-7 

Define job - the records between a job 

and end-of-job inclusive and the implications 

of these records to the Supervisor 

4. Formats (quiz on examples) R-14 
Note V-8,9 

a. Disk pack drive override (use analogy 
to dial-up of tape unit) 

b. Disk pack label check (refer to logical drive) 

c. SPS, SPSX, XEQS (defer lengthy explanation 
of SPS subr sets at this point) 

d. FOR, FORX, XEQS (also defer discussion of 
FORTRAN subroutines) 

e. XEQ, XEQS - name takes precedence over 
DIM no. , but - DIM no. faster access 

f. XEQ, XEQS - defer explanation of program formats 

g. Remainder of cards are for comments, RM to 
stop type. 

5. Summarize how Super uses tables to pull down 
programs R-10 

6. Review concept of stacked input R-17 

a. Minimum requirements for a job 

b. Go over possibilities again 

c. Control record specifying execution implies 
end-of-job 

d. Examples V-10,11 

R-18 
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B. Monitor Control Record Analyzer - functions R-18 

1. Call for record via type (if entry is from tape) 

2. Read Mon Cutl Rec 

3. Analyze and set parameters from Cutrl Rec 

4. Take action as directed by pseudo op-codes 

5. Error detection and institute corrective procedures V12-14 

R-19 

C. Input- Output Routine - IORT R-21 

1 . Functions 

a. Perform I-O tasks for 

(1) Super 

(2) Compilers 

(3) DUP 

(4) Object programs 

b. Check 1-0 operations 

c. Correction of I-O errors where possible 

d. Institute error correction procedures if applicable 

e. Maintain records of disk arms status 

2. Use by programmer (general discussion) 

a. Entered via I/O macro codes 

b. System errors produce type messages 

c. Restart procedures given for all error halts 

d. Error counts kept 

3. I-O error routine V15, R-24 

a. Procedure 

b. Response codes V16, R-24 

c. Error types V17, R-25, 26 

d. Recall that IORT is used by one and all, 
hence messages may occur any time 



Error count retrieval routine 



V18, 



R-27 
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D. System Communication Area 

1. Core V19, R-29 

2. Disk sector 19663 V20, R-29 

E. Object Program Loader - functions R-27 

1. Load user prog for cds, tp, or dsk 

2 . Recog SOF 

3. Seq ck if fr cds (col 76-80 ® flag) 

4. Recog SPS patch cds (col 76-80 00000 no flag) 

5. Error detection, reporting, correction V21 



F. 



System Output Format - SOF 



V22 



X 



DISK UTILITY PACKAGE 
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A. Review R-31 

1. Trigger - monitor control record, PUP 
Z. Use of Eq. , DIM, and Seq. Prog, tables 
3. Note that one of the functions of DUP may be to 
alter these tables 

B. DUP Control Records R-32 

1. If typewriter input - ENTER DUP CNTRL REC typed 
Z. Error in format - mess. , halt, return to Super 

for next monitor control record (hence correction 

of card is possible) 

3. Recall that since DUP uses IORT error messages out of 
IORT may occur 

4. Write address routine R-32 

a. Function 

(1) Write sec addr on dsk pk 

(Z) Write read-only figs - optional 

(3) Clear sectors (to zeros) - optional 

b. Control record format V- 1 

c. Operation V-l 

5. Alter Sector Routine R-33 

a. Control record format V-Z 

b. Operation V-Z 

c. Error Procedures R-33, -34 

d. Note alpha mode entry and special 

character equivalents R-34 

6. Disk to Output routine R-34 

a. functions V-3 

b. Recall SOF 

c. control record format V-4 

d. output formats 

(1) cards - 3 sec per 4 cds @ seq. no. 

and trailer card 
(Z) p.t, - same as cds sans seq no 

(3) type V-5 
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7. Load Programs Routine 

a. functions and options V-6 

b. review and explain 

(1) working vs permanent storage 

(2) read only sectors 

(3) movable vs. immovable info 

(4) SOF relocatable, SOF absolute, core image 

c. Control record format R-27 , V- 7 

d. Recall messages if read-only figs 

e. Explain mess given by any DUP prog which loads 
or moves a program 

8. Replace Prog. Routine R-38 

a. features 

(1) Update prog in permanent dsk stor fr 

(a) cds 

(b) p.t. 

(c) dsk perm stor 

(d) dsk work area 

(2) Assign multiple names (entries to prog. 

(3) Add read only figs to existing prog. 

b. Control record format V-8 

9. Disk to Disk Routine R-38 

a. Features and restrictions 

(1) dsk to dsk only 

(2) copy into available area only (including work cyl) 

(3) specifically, not allowed to overlay (or move) 
another data area 

(ft) write read only figs on copy X work area 

(4) encounter of read only fig during copy stops copying 

b. Control record format V-9 
10. Delete Programs Routine R-39 

a. Features 
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(1) deletes prog (rd only figs if present) 

(2) eliminate 

(a) Eq. tab entry 

(b) DIM entry 

(3) update seq. prog, tab 

(4) new availabel area not filled in, i. e. , no other 
prog moved down 

b. Control record format V-9 

11. Define Parameters Routine R-40 

a. features V-10 

b. control record format V-ll 

12. Define Disk Pack Label R-41 

a. features 

(1) writes disk pack label 

(2) initializes seq. prog, tab 

b. Special Handling of System Pack 

(1) initialized by System Load 

(2) Seq. pg. tab. on System pk not initialized by 
this routine (inhibit contained in DIM entry) 

(3) as delivered - sys pk lab is 00001 

c. control record format V-12 
13. Define FORTRAN Library Subroutine Name R-42 

a. function 



(1) assign equivalent names to library subr 

(2) assign names (entry points) to user produced 
FORTRAN library subroutines 



b. 



control record format 



V-12 



C. 
D. 



DUP Error Detection and Correction Procedures 
FORTRAN and SPS Output may Utilize 



V-13 thru 20 
R-45 



1. Disk to Output 

2. Load Programs 

3. Replace Programs 



XI 



SPS 2-D 
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C 

A. New Language Specifications 

1. Important inclusions from 1710 SPS II 

a. Declarative 

(1) DSAC (spec alpha const) R-59 

(2) DVLC (variable length constant) R-58 

(3) DDA (disk address) R-60 

(4) DGM (group mark) R-61 

b. Imperative 

(1) Disk I/Omneumonics R-147, 1>8 

(2) Product area macros R-67 

(3) BNG (branch no GM) R-143 

2. New I/O Mneumonics 

a. Declarative R-84 

(1) Explain 

(2) Types 

(3) Formats 

(4) Generated coding VI -4 

b. Imperative R-83 

(1) Function 

(2) Types 

(3) Formats 

(4) Generated coding VI -4 

3. Coding form-examples of usage V5, 6, 7 

4. Rules of Relocatability R-92 

B. Input Sequence - Assembly 

1. JOB 

2. SPS 

3. SPS Control Records R-87 
a. General Format 

( (1) Spelling 

(2) Blanks 

(3) Remarks 



b. Note 



(1) Apr 1 sec on dsk per source statement required for 
intermediate string (5 cyl max) 

(2) Error mess if attempt 1 pass mode @ too large prog. 

(3) For check purpose object match assumed same as 
source if not specified 

(4) Hierarchy of parameter designation 

(a) Standard (Subr. Set, Mantissa, Noise) 

(b) Assemble time 

(c) execute time 

(5) Order of punched output 

(a) Reseq source deck (type corrections not included) 

(b) List deck 

(c) Symbol Table 

(d) SOF for object program (list deck not reloadable) 

(6) Review of SOF abs, SOF reloc, CIF 

(7) Rules for program replacement R-44 



Source Statements 



a. 



Language Errors 



(1) Message 

(2) Cause 

(3) Procedure - processor disposition of error 

(4) Procedure - on-line correction 



V9, 10 



Vll, 12 
V13 



Organizational Errors and Procedure 



V14 



5. 
6. 
7. 



End of Job 

Assembler Output and Formats 
End of Assembly information 



V15 
R-90 



Input Sequence - Execution 



1. 

2. 



JOB 

XEQ, XEQS, or SPS X 



a. 



Subroutine 



(1) Set ID 

(2) Macro generated coding 



V16 
V17 
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(3) Exponent control VI 8 

(4) Error Disposition V19 

b. Noise digit - discuss uses 

3. Object records if from external loader error conditions V20 

4. End-of-job 

Deck Set-Up Examples V21 

SPS 2-D Modification Program R-92 



1. Called by XEQ SPS LIB 

2. Options 

a. Add mneumonic op- codes 

b. Delete mneumonic op- codes 

c. List mneumonic op- codes 

d. Define System Symbols 

3. Control record Formats 



V-22 



V-22 



a. Define op- codes 

(1) Op- code record format 

(2) Generation codes and resultant 

(3) Error situations 

b. Delete op- code 

c. Define System Symbol Table 

(1) Note redefinition 

(2) Symbol record format 

(3) Error mess. 

(4) Capacity - 150 

(5) As distributed 

d. List op- code, type 

(1) Mneumonic 

(2) 3-digit code 



R-83, 93 
V-22 

V-22 R-94 
V-22 

R-93 
R-93 



V23 
V-23 

V-23 

R-93 



e. 



ENDLIB 



R-94 



Adding an SPS Library Subroutine 
1 . PICK Subr 



R-79 thru -84 



a. inclusion 
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b, functions 

(1) Obtains data 

(2) Calculates return address 

(3) Resets error indicator (loc 401) 

(4) Provides common work storage 

(5) Transfers control to specific subr 

(6) Returns result to calling prog 

(7) Exits to calling prog 

c. Parameter locations V-24 

2. Twelve per sets 1,2,3 allowable 

3. Operands - 2 to 9 allowed 

4. Procedure - Programming include 

a. Entry point identification V-25 

b. Identification no. in DEND V-2 5 

c. If PICK is used, codes for reference to PICK V-26, 27 

5. Procedure - Operation 

a. Add mneumonic to op- code table (use modification 
prog 

b. Assemble Subr - include 

(1) Assemble relocatable 

(2) DIM no. (see base no. for SPS subr) V-28 

(3) LIBR card 



6. 



Example 



V-29, 32 



xn 



FORTRAN II-D 
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A. New Language Specs 

1. CALL EXIT (STOP compilation) 

2. Disk I/O 

a. DEFINE DISK (nl, n2) 

(1) nl , no. of items per logical record 

(2) selection of physical rec. size by processor 

(3) n2, max no of logical records 

b. RECORD (i) list 

( 1) nature of i 

(2) function of i 

(3) lists for disk I/O 

(a) element type- sector usage 

(b) matrix type 

i. all matrix elements 

ii. f and k both even 

iii. sector usage 

(4) note: no reference to FORMAT 

c. FETCH (i) list 

(1) restrictions on matrix lists 

(2) use of dummy items (nX not allowed) 

d. FIND (i) 

(1) no unnecessary seeks - ref to sys. com. area 

(2) RECORD, FETCH have implied seeks 

(3) System restoration after intervention 
(LOCAL subpr. calls - not discussed yet) 

B. Compilation (discussion in deck set-up sequence 

1. JOB 

2. FOR or FORX (defer discussion of LOCAL specs) 

3. Subroutines 

a. Library i. e. , relocatable V(l) 

(1) loaded with calling program 

(2) loader receives call via program header record 

(to be discussed. 
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(3) versions 

(a) w/AFP 

(b) wout/ AFP 

(c) only one version loaded to disk with system 

b. Arith and I/O V (2) 

(1) always available to object program during exec 
(Z) versions - (besides AFP and no AFP) 

(a) "long" form - 14,000 core 

(b) "short 1 form - 

(i) 7500 core 

(ii) blocked 

( iii) load on call 

c. Type identification (standard as del.) V (3) 

d. new error conditions V (4) 

4. Fortran control records (except LOCAL and DATA) 

a. basic format V (5) 

b. error procedure V (5) 

c. method of replacement w/ LDISK 

d. method of supplying name if FUNCTION or 
SUBROUTINE 

e. review or explain SOF V (6) 

5. Switch use- compilation V (7) 

6. Source statements 

a. New type I errors y (8) 

(1) revert to "edit only" 

(2) ignore 

(a) POBJP 

(b) PSTSN 

(c) LDISK 

(d) execution (return to super) 

b. New type II error V (8) 

(1) continues compile 

(2) ignore 

(a) POBJP 

(b) PSTSN 

(c) execution 

(d) (note load- to- disk) ? 
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7. Phase -to-Phase Operation of Compiler 



a. Intermediate results held on disk (work storage) 

b. All output after successful compilation 



Order 

(i) 

(2) 
(3) 

c. Overlap check (comp. continues) 

d. End of compile type -out 

e. review or explain load-to-disk typeout 

C. Execution V(9,10, 11) 



1. JOB-XEQS pair or original FORX 

2. LOCAL (load on call) subprograms 

a. concept, philosophy, and usage 

b. restrictions 



(1) cannot call another LOCAL 

(2) cannot call a new lib. subr. 

c. control record format 

d. control record format 

e. recall local card count in XEQS or FORX 

3. Switch use during execution y(7) 

4. DATA control record 

5. Data - action by super re unprocessed data 

6. End- of- Job 

D. Object Loading 



1. location of subpr 
2 # location of links 

3. procedure for LOCAL subpr 

4. error procedures V(12, 13) 

E. Object Time Core Map V (14) 

F. Object Time Disk (work storage) Map V (14) 

G. Addition of Lib. Subr. V (15) 

H. Writing Subpr. in SPS 2-D V (16-21) 

I. Compilation improvement techniques 
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1. Statement no. comp. 

2. Undefined variable check- stop 
3 # Constant subscript wash-out 

4. Subscript calculation wash-out 

5. 2, 3- dim subsc cal out of line 

6. Subpr argument pick-up, loop coding 



(' 



SECTION VIII 



STUDENT HANDOUTS FOR OUTLINE 2 



( 



SUPERVISOR 
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DISK UTILITY PACKAGE 



List of Programs 

1. Write Sector Addresses 

2. Alter Sector (through typewriter) 

3. Disk to Output (cards, tape, or type) (data or programs) 

4. Load Programs (to disk storage) (from cards, tape, disk work) 

5. Replace Programs (on the disk from cards or tape or work or DIM) 

6. Disk to Disk (data or programs) (copy) 

7. Delete Programs (actually, data or programs) i. e. , DIM entry and object 

8. Define (system) Parameters 

9. Define Disk Pack Label 

10. Define FORTRAN Library Subroutine Name 
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EQUIVALENCE TABLE ENTRY 



Equivalence Table Entry - 16 Digits 
< 16 > 

NNNN NNNN NNNN DDDD 
< 12 > <- 



6 character name 4 digit DIM number 



Example: 

"6245676800000363 
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DIM TABLE ENTRY 



DIM Table Entry - 20 Digits 
DDDDDD SSS CCCCC EEEEEF 

DDDDDD Disk sector address of the program or data 

SSS Sector count 

OCCcfc^ Core address if the program or data is in absolute 

or core image format, all nines if in relocatable 
format. If units position is flagged, the Subroutine 
Supervisor will be used to load the program. 

Note the similarity between the first 14 digits and a disk control field. 



EEEEE 



Program entry address. This address is relative 
if the program is relocatable. 



F 


File Protected 


Permanently Assigned 


if 

t 


yes 


no 




yes 


yes 


* 


no 


no 




no 


yes 


Example: 


0055660259999900000 $ 





ie. 



Sector 05566; 

25 sectors in length 

relocatable; use Subroutine Supervisor to load; 
stored with read-only flags and is also im-movable. 
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SYSTEM MODULE AS DELIVERED 



Program/ Table Cylinders 

Working Storage 00-23 

DIM table 24 

Equivalence table 25 

FORTRAN Subprogram Loader 80 

FORTRAN Library Subroutines 81 

SPS Library Subroutines 82-83 

FORTRAN I/O and Arithmetic Subroutines 84-97 

FORTRAN Compiler 86-90 

Disk Utility Program 85,91-92 

SPS Assembler 93-96 

SPS Subroutine Supervisor 85 

Supervisor Program with 1/ O Routine 98 

Loader Routine 98 

System Area 99 

1440, 1401, 1410, Systems Header Label Area 99 

Mutual Disk Pack Identification Label 99 

Sequential Program table 99 



DIM Numbers 



138, 147, 149, 150 
152, 157 

* 10-39 

❖❖40-130 

144-146 

136-1 37, 153, 156 
139-143 154, 155 
8, 9, 131, 132 
133 

134, 148 
135 

151 

166-169 
162-165 
4, 5, 6, 7 



* only DIM entries 10-25 are in use when the system is delivered 

** only DIM entries 40-57, 69-86, 99-117, and 130 are in use when the 
system is delivered. 



SEQUENTIAL PROGRAM TABLE ENTRIES 



Sequential Program Table Entries - 4 Digits 



Three types: 



1. Cylinder begin point 70 XX where XX is the cylinder 

no. (00 - 99) 



DIM no. DDDD 



Available Area 9YYY 



where DDDD is the DIM no, 
of a program on the cylinder 
specified. 

where YYY is a sector count 
of the unused area between 
adjacent entries. 



Example: 7048 0434 0435 7049 0436 9010 0437 
7050 0437 7051 0437 7052 0437 



Data 434 and 435 on all of cylinder 48. Data No. 436, 10 available sectors, 
and start of 437 on cylinder 49. Data No. 437 continues onto cylinders 
50, 51 and 52. 



SYSTEM START-UP 



Load Monitor to Disk 



Cold Start (Load Supervisor to core from disk) 
Enter and Execute 

00000 34 00032 00701 

00012 36 00032 00702 

00024 49 02402 

00031 X 

00032 Y 19636 113 00102 # 

Where X = 1 for Monitor Control Records from type 
3 for Monitor Control Records from tape 
5 for Monitor Control Records from card 

Y = Drive code of Monitor System 



Luke Warm Start (Supervisor in core) 
49 00796 (B MONCAL) 



LIST OF MONITOR CONTROL RECORDS 



JOB Identifies beginning of job and specifies job parameters. 



4t 



Double RM. Marks end- of- job. 



SPS 



Calls down SPS Processor, 



SPSX 



Calls down SPS Processor and sets execute switch on. 



FOR Calls down FORTRAN Processor. 

FORX Calls down FORTRAN Processor and sets execute switch on 

XEQ Calls down or loads named SPS object program not requiring SPS 
subroutines and executes. 

XEQS Calls down or loads named object program and executes. 

DUP Calls down Disk Utility Processor. 

TYPE Calls on typewriter for entry of all further Control Records 



for this job. 



PAUS Causes System halt. Resume by pressing Start. 



other Treated as comments cards to be typed. 



MONITOR CONTROL RECORD FORMATS 



All Types: 



1, 2 * t 



All Types except comments, i. e. 

JOB, end-of-job (t t) SPS, SPSX, FOR, FORX, XEQ, XEQS, TYPE, 
PAUS, DUP: 

3-6 Type name, left- justified 
Comments type is recognized as any other text in positions 3-6 
All types except XEQ, XEQS, fi 9 Comments 

7 source of next input l=type 



3=tape 
5=cards 



JOB 



8-11 
12-16 
17-21 
22-26 
27-31 



Disk Pack ID drive 0 
Disk Pack ID drive 1 
Disk Pack ID drive 2 
Disk Pack ID drive 3 



Disk Module change numbers 



SPSX 8-9 
10 
11-12 



SPS Subroutine Set ID number if non-standard 
Noise Digit if non-standard 

Mantissa length if non-standard 



FORX 8 



9-10 



FORTRAN Subroutine Set ID number 
LOCAL control card count 



XEQ and XEQS 



7-12 
13-16 
17-21 



Name of program to be called 

DIM entry number (name takes precedence if both are given) 

Program loading address if prog is not core image 

If unspecified 2402 is assumed. 

Program execute entry point if not core image. 

Relative if relocatable. 

source of input blank - disk 



22-26 



27 



3 = tape 
5 = cards 



XEQS 28 FORTRAN Subroutines Set ID 

29-30 LOCAL control card count (FORTRAN) 

31-32 SPS Subroutine Set Id if non-standard 

33 SPS Noise digit if non-standard 

34-35 SPS mantissa length if non-standard 



All types 

Characters beyond those specified for any type are at the discretion 
of the user and may be used for comments. 



Examples 

f $ JOBbSO 12 30000 1 00 15100 15200153bbVTBbANALb 
/^'DUPb5 

^bTHISbPROGbWASbNAMEDbSNARK. 



^FORX3300 



STACKED INPUT, SPS and FORTRAN JOBS 



10 




STACKED INPUT, DUP and XEQS JOBS 
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PAUS Monitor 



pftt Monitor 
(end- of- job) 



Data 




XEQS Monitor 



PAUS Monitor 



Comments 
Monitor 



JOB Monitor 



t t tt Monitor 
(end- of- job) 



DCOPY Control 



DUP Monitor 



Comments 
Monitor 



Job C 




Job D 
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MONITOR CONTROL RECORD ANALYZER ROUTINE ERROR CONDITIONS 
Message ERROR IN FIELD AT COLUMN XX. PHASE TERMINATED. 

Cause A Monitor control record contains an invalid code in the field 

starting at column XX. 
Action The phase is skipped and the supervisor will pass records from 

the control record source until it encounters the next monitor 

control record. 
Message EXECUTION IS INHIBITED. 

Cause An error has occurred within a job which may prevent susses sful 

execution of the user's object program. 
Action None required. No user object program can be executed until the 

next JOB monitor control record is encountered. 
Message OBJECT DIM ERROR, PHASE TERMINATED. 

Cause The supervisor has not been able to find the DIM entry which 

was called for in a XEQ or XEQS control record. 
Action The phase in which the error occurred is terminated and processing 

continues. 

Message OBJECT NAME ERROR^ PHASE TERMINATED. 

Cause The supervisor has not been able to find an entry in the equivalence 

table corresponding to the name supplied in cols. 7-12 of XEQ or 
XEQS control record. 



Action 



The phase is terminated. 
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Message CANNOT RESTORE COMMON -- RESET AND START 

TO RETRY 

Cause Common area does not read into core storage from disk 

storage correctly 

Action Depress reset and start keys to retry the read operation. 

Message EXECUTION 

Cause Loading and execution of users object program has started 

Action None required 

Message JOB CARD GROUP ONLY 

Cause Control record analyzer routine is expecting a JOB, TYPE, OR 

PAUS Monitor control record. 
Action Enter JOB, PAUS, or TYPE, Monitor control record from typewriter 

and depress the release and start keys. 
Message ERROR IN FIELD AT COL. XX. SET SW4 TO IGNORE, OFF TO 

RE-ENTER CARD. 

Cause An illegal character has been detected in a JOB CONTROL record 

data field. 

Action To ignore the error, turn program switch 4 on and depress the start 

key. The message "CONDITION IGNORED" is typed and processing 
continues. To correct the error turn program switch 4 off, and press 
start. The monitor control record source will be changed to the 
typewriter and the operator may then re-enter the control record 
Note that col. 7 must have a source digit if it is desired that the 
supervisor reads succeeding records from the original source. 

Message PACK NUMBER ERROR ON MODULE X. SET SW4 ON TO IGNORE 

OFF TO RECOMPARE. 



Cause 



Disk pack identification numbers compare "unequal", 



14 



Action 



Message 

Cause 

Action 

Message 

Cause 

Action 

Message 

Cause 

Action 



To ignore the error, turn program switch 4 on and depress the 
start key. The message "CONDITION IGNORED" is typed and 
processing is resumed. To correct the error place the correct 
disk packs on the disk drives and depress the start key. The disk 
pack identification n umbers will again be checked by the program. 
END OF JOB 

The end of a job has been reached 
none required 

ENTER MONITOR CONTROL RECORD. 

A "^^TYPE" control record has been entered. 

The operator must enter a Monitor control record from the 

typewriter. Control record source is now the typewriter. 

SYSTEM DIM ERROR^PHASE TERMINATED, 

Supervisor is unable to find DIM entry for SPS, FORTRAN, OR DUP. 
The phase is terminated. 
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THE I/O ERROR ROUTINE 

The I/O error routine has the facility to handle any of the following errors. 

Any Check 
Typewriter write 
Typewriter read 
Paper tape read 
Card write 
Card read 
Cylinder overflow 
Write error count 
Illegal DIM entry 
System 

Unavailable disk drive 
Control record trap 
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IORT ERROR CORRECTION OPTIONS 



Error Correction 

Code Option 



00 Ignore the error. When this option is used, the 1/ O 

routine will finish processing the I/O operation as though 
the error had not occured. 

05 Re- execute the I/O operation. If an error reoccurs during 

the next execution an error message is again typed, the 
computer stops, and the operator can exercise the same 
option or another option. 

10 Skip this phase of the job. If at System time (SPS FORTRAN) 

DUP, or Supervisor), control is returned to the Monitor control 
record analyzer routine which will read records at the control 
card source until a Monitor control record is read. 

15 Discontinue execution and return control to the Monitor 

control record analyzer routine and pass records to the next 
"JOB" Monitor control record. 

20 Continue processing by branching to a specified core storage 

address. When this option is exercised the operator enters 
5 digit branch address from the typewriter. No further 
processing of the I/O request (reposition, execute, etc.) 
will be done when this option is exercised 



MESSAGE 



IORT ERROR SITUATIONS 

CAUSE 



1. ENT ERROR Any check (19) 
0607T67 7 3 63738 

2. none Incorrect typewriter write (07) 



3. 


TYPE ERR 


Typewriter read error (06) 


4. 


PTR ERR 


Paper tape read (06) 


5. 


CDP ERR 


Card write (07) 


6. 


CDR ERR 


Card read (06) 


7. 


DSK OFL 


Disk overflow (38) 


8. 


DSK ERR XXXXX 


Disk read or write error other than 


06071617363738 


legitimate overflow (37 or 38) 



9. BAD DISK WRITE 
lo! RESET START 
MAP ERR 
XXXXX IIII 



Error while writing error count 

User supplied illegal DIM no. in 
a CALL statement 



11. IMP ERR Error routine cannot determine 

error cause 

12. Stop at 00467 Error while IORT reading own 

subroutines 

13. MOD ERR XXXXX Incorrect drive code specified 



14. TRP ERR IORT read ^ ^ card when looking 

for data 

15. MUST RELOAD ^ ^ card read in numeric mode 



CORRECTIVE ACTION 



A flag will appear over the units position of the 
indicator causing the error. Exercise operator 
option 

Invalid character is struck through with a horizontal 
line, exercise option 

exercise option. 

backspace tape. Option 05 only. 

One retry has already been attempted. Exercise option 
Exercise option 

Option 05 will act liKe option 00 

XXXXX is object prog return point. Flag* will appear 
as in ENT ERROR above. Exercise option. If 05 
and error persist 

1. Disk, parity, I/O check switches 
on STOP 

2. Option 05 again 

3. Examine console lights 

1. Clear select-lock 

2. Reset- start 

XXXXX is object prog return. IIII is illegal DIM No. 



1. 


Option 00 


2. 


RS 


3. 


Computer halts 


4. 


type correct DIM 


5. 


RS 


No intervention allowed 


to retry 




1. 


Clear select-lock 


2. 


Reset- start 


1. Option 00 only 


2. RS 




3. Halt 




4. Type correct 1- digit drive code 


5. RS 





Supervisor will process if read in alpha mode 



1. Reload control record 

2. Start 



ERROR COUNT RETRIEVAL ROUTINE 



Enter 34 00032 00701 

36 00032 X0702 
49 00070 0 
119754 001 00046# 

Where X is the drive code for Monitor I 



Error counts for: 

06 Read Check 

07 Write Check 

16 MBR-E 

17 MBR-O 

36 Address 

37 WLR-RBC 

38 Cylinder Overflow- 
will be typed as follows; 



XX XX XX XX XX XX XX 
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CORE STORAGE COMMUNICATIONS AREA 



402-421 Twenty digit DIM entry or fourteen digit disk control field being 

used by the I/O routine, DUP, or other program. 

422-425 Four left-most digits of starting work cylinder address (1 000 

as delivered) 

426 Source of SPS or FORTRAN source program input* 1 = type; 3 = 
paper tape; 5 = card 

427 If flagged, loading resumes at 00000 after a TCD-TRA. If unflagged 
see 435-39. 

428 Source of object program being loaded. 3=tape; 5= cards; 
7=disk. If flagged DEND entry triggers program execution. If 
unflagged then TCD triggers execution. 

429 Source of Monitor control input. 1 = type; 3 = tape; 5 = cards. 
Flagged if subroutines are to be called with SPS or FORTRAN 
object programs. 

430-34 High indicator, i. e. , address plus one of highest core location 

loaded. 

435-39 Addr e s s^ where loading is resumed following SPS TRA instruction. 

Will be 00000, 00075, 00150, or 00225 
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DISK COMMUNICATIONS AREA 



Disk Sector 1 


19663 


Positions 




00-19 


DIM entry used by IORT and Super 


20-21 


no used 


22 


0 prog to be loaded to disk is in core image format 




1 prog to be loaded to disk is in relocatable format 


23 


0 = paper tape output; 1 = card output 


24-35 


6 alpha char: name of prog to be loaded after assembly 


36-39 


DIM no of prog to be loaded after assembly 


40-41 


Mantissa length for SPS subr 


42-43 


SPS Subr ID 


44 


SPS Noise digit 


45-46 


FORTRAN Mantissa length 


47-48 


FORTRAN fixed point length 


49 


No. of drives available to Monitor 


50-64 


Super prog- indicators 


65-83 


Reserved 


84-88 


First core address of a relocatable object prog 


89-93 


Computed relocation address of object prog 


94-98 


Card Sequence no. 


99 


RM 
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OBJECT LOADER ERROR SITUATIONS 

( 

Message Cause Action 



XXXXX LD1 Card Sequence Error XXXXX is the last card in 

correct sequence. Place 
cards to follow XXXXX in 
hopper. Start. 

L.D2 Card Read Error Re-read by check- reset and 

start on the 1622 

Disk Read Error Start to retry 

Disk Read Error while Start to retry 

reading loader 



LD3 
LD4 



SYSTEM OUTPUT FORMAT - SOF 



ZZ 



(All records are card image except for sequence no.) Characters 1-75 
contain addresses, data and indicator codes. If cards, 76-80 contain a 
sequence number or 00000. 



I. 1-5 Address of first data character 

II. 6 Indicator code 

III. 7-8 Length of data 

IV. Data starts in position 7 or 9 since III may not be 

applicable. 



II, III, IV are repeated as many times as can be accommodated 
on one record. Ldoes not repeat until the next record unless 
there is a break in loading sequence. 

Indicator Codes 



t Break in loading sequence. Next 5-digits are new loading address. 

T Used to terminate data on a record prior to position 75 

0 Indicate a TRA-TCD compilation in a relocatable program^ — 
next 5 digits are a branch address 

0 Same as 0 except prog is absolute. 

1 data is instructions 

Z constants to be relocated 

Z constants not to be relocated 

3 relative addresses to be relocated 

3 relative addresses not to be relocated 

_4 Supplies numeric blanks to relocatable prog 

4 Supplies numeric blanks to non- relocatable prog 

_6 End of relocatable prog. In SPS next 5-digits indicate prog length. 

6 End of absolute program. 



There will be a trailer card with 99999 in 1 - 5 following the last program card in SPS or 
FORTRAN output. 
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DUP WRITE ADDRESS ROUTINE CONTROL RECORD FORMAT 



1 * (asterisk) 

2-6 DWRAD 

7-12 Disk sector address where writing starts 

17 P if read only-flags are to be written 

18 Z if data is to be zeroes; S if not to be zeroed 
21-26 Address to be written at starting sector 
27-32 Last address to be written 



DUP WRITE ADDRESS ROUTINE PROCEDURE 



1 . * DUP TURN ON WRITE ADDRESS KEY, START 

2. Type-out: WRITE AND SAVE or WRITE AND ZERO 

SEEK START STOP 
XXXXXX XXXXXX XXXXXX 

3. User verifies intentions. Start 

If unable to find start addr (7-12) 

ER SK XXXXXX where XXXXXX is the seek address. 
Also, 20 sector addresses from the track will be 
typed. STOP. 

START returns control to SUPERVISOR. 

4. *DUP TURN OFF WRITE ADDRESS KEY, START. 
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DUP ALTER SECTOR ROUTINE CONTROL RECORD FORMAT 



1 * 

2-6 DALTR 



DUP ALTER SECTOR ROUTINE PROCEDURE 



1. SECTOR typed 

2. Type 6 digit sector to be altered, RS 
(If more than 6 digits are typed 

SECTOR NUMBER ILLEGAL, START TO REENTER DALTR) 

3. Sector type out (margins 70 or more apart) 

1st. HALF xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx ORIGINAL 

2nd HALF xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx ORIGINAL 

4. Each 10 digits is given a section number, 01-10. 
SECTION is typed out 

5. Type 2-digit section number of first section to be changed, RS 

(If illegal: SECTION NUMBER ILLEGAL, START TO REENTER DALTR) 

6. xxxxxxxxxx TYPE CHANGE. Selected section is typed out. 

7. Type change in same format. X may be typed for unchanged digits. If 
more than one section is to be changed a blank must separate them. 

(If type-in proceeds beyond section 10: TYPE-IN EXCEEDS SECTOR 
LENGTH typed. Start allows operator to begin again) 

8. Original and Corrected Sector are typed out 

9. SECTION typed. Operator may change other sections. 

10. If_operator types j- the updated sector is written on disk. DISK SECTOR 
DDDDDD CORRECTED typed where DDDDDD is the sector being altered. 

11. SECTOR typed. User may change another sector. 

12. If user types RS, control returns to Super. 



Note that data entry is in alpha mode. Flagged RM and flagged GM are entered 
through W and G keys respectively; J thru R for flagged digits; - for flagged 
zero. 
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( 

DUP DISK- TO-OUTPUT ROUTINE FUNCTIONS 



Output to cards, tape, or typewriter 

1. Prog or data by name 

2. Prog or data by DIM number 

3. Data between sector limits 

4. DIM table 

5. Equivalence table 

6. Availability List 

7. Sequential Program table 
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DUP DISK- TO-OUTPUT CONTROL RECORD FORMAT 



1 * 

2-6 DDUMP 

7-12 Name 

13-16 DIM number (Name takes precedence if both are given) 

17 Output device - C, P, T 

18 Output Identification 



I = DIM table 
E = Eq. table 

A = Availability entries from module specified 

S = Sequential Program table 

M = Program: see 7-12 or 13-16 

L = Sector Limits: see 21-32 

19 Module number (if A or S in 18) 

21-26 Beginning sector of output (if L in 18) 

2 7-32 Last sector of output (if L in 1 8) 
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DUP DISK- TO-OUTPUT TYPEWRITER FORMATS 



1. Availability Lists 

(NOT CA&$ 

AAAAA 

BBBBBB CCCCCC 
BBBBBB CCCCCC 
etc. 



AAAAA = Disk pack ID 

BBBBBB = start disk addr of unused area 
CCCCCC = end disk addr of unused area 



Z. Equivalence Table 

NNNNNN nil (5 per line) 

where NNNNNN is the name 

IIII is the DIM no. 



3. All others: 100 digit sectors, 75 on the 1st line, 25 on the second. 



DUP LOAD PROGRAMS ROUTINE FEATURES 



The routine provides the following program loading options: 

1. A Name may be assigned to the program in the equivalence 
table. 

2. A DIM entry may be created by assigning a DIM number to 
the program. 

3. The disk storage location can be permanently assigned 
(fixed) . 

4. An entry address (execution address) can be assigned in 
the DIM entry to the program. 

5. Read-only flags can be written in the sector addresses. 

6. The disk storage location can be selected by cylinder (S) 
for the program without permanent assignment. Thus, 
several associated programs can be assigned the same 
cylinder or group of cylinders by the user without acutally 
specifying sector addresses. 

7. Programs in either core-image or system output formats 
can be loaded; and programs in system output format can be 
converted to core image while loading. 



8. Info between work Sector limits 
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DUP CONTROL RECORD FORMAT FOR LOAD PROGRAMS ROUTINE 



1 * 

2-6 DLOAD 

7-12 Name of Program 

17-20 DIM no. of Program 

21-26 Start disk address of prog in work cylinders to be stored 

27-32 End disk address of program in work cylinders 

33-38 Disk address where program is to be loaded to. 

If included, the program will be permanently assigned 

to this address. 
39-43 Core address of non- relocatable program. 

This goes into CCCCC of DIM entry. 
44-48 Entry address. This is placed in EEEEE portion of DIM 

entry and must be given for program in core image format. 

49 Input device C, P, D 

50 I = prog is in core image format (GIF) 
S = prog is in SOF 

M = prog is in SOF to be converted to GIF 

51 P = write read-only flags 

52-54 Start cylinder where prog can be loaded 

(format: XYY, X = 0, 1, 2, 3; YY = 00-99) 
where X is module, YY is cylinder no. 

55-57 End cylinder where prog may be loaded 

(same format as preceding) 
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PUP CONTROL RECORD FORMAT FOR REPLACE PROGRAM ROUTINE 



1 




* 


2- 




F)R EPL 


7- 


12 


J. N CwXiJ.^? ' -L LJ X w fc£ X CkJ.ll \ O V> UWLCI 


1 3 


-16 


X-/X1VX xlvj. 11 -L CJ-JXd.l~X±±££ pi U^i dill LUlIlcS 11 UIIl cLIIkJ LUC X vLXoJN. 






di ca 


1 7 


- ? n 

-till 


xJiivx no, oi repiaCcu prograiix ^see riOLej 




- CO 


oiart uisk acLuress oi prog m wk cyi 


27 


- 32 


TP-nH 1! ft II II II IJ II 


39 


-43 


Core address of non- relocatable info, goes into 






CCCCC of DIM entry. 


44 


-48 


Entry address. Goes into EEEEE portion of DIM 






entry and must be given for programs in core image format. 


49 




Input device. QP,D 


50 




I = info is in core image format (CIF) 






S = prog is in SOF 






M = prog in SOF to be stored in CIF 


51 




P = write read-only flags 



NOTE: If contents of 13-16 equal 17-20 and name in 7-12 does not 

correspond to DIM no. in 17-20, then DUP assumes that 
7-12 is a synonym name and is so entered into the 
equivalence table. 



DUP DISK-TO-DISK ROUTINE CONTROL RECORD FORMAT 



1 * 

2-6 DCOPY 

7-12 Name 

13-16 DIM no. (name takes precedence) 

21-26 Start sector of program to be copied 

27-32 End sector of program to be copied. 

33-38 Start sector address of new copy 

51 P if read only flags are to be written. 



DUP DELETE PROGRAM ROUTINE 



1 * 

2-6 DELET 

7-12 Name 

13-16 DIM no. 
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PUP DEFINE PARAMETERS ROUTINE FEATURES 

1. Alter assignment of work cylinders location and length 

2. Alter assignment of DIM table length 

3. Alter assignment of Eq. table length 

4. Alter assignment of Seq. Prog, table length 

5. Indicate no. of drives on the system 

6. Define standard for SPS 

a. floating point mantissa length 

b. Subroutine Set ID no. 

c. Noise digit 

7. Define standard for FORTRAN 

a. Mantissa length 

b. Fixed point length 

c. Subprogram source, alternate 

d. Subroutine set ID 

8. Indicate machine size for 

a. Source program compilation 

b. Object program execution 
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PUP DEFINE PARAMETERS ROUTINE CONTROL RECORD FORMAT 
1 * 



2-6 


DFINE 


7-12 


Beginning disk sector address of work cylinders (000000) 


14-16 


No. of work cylinder, max 99 (24) 


18 


No. of drives on system (1) 


20-22 


Sectors in DIM table, 999 max (200) 


24-26 


Sectors in Equivalence table, 999 max (80) 


28-30 


Sectors in seq Prog Table, 100 max (80) 


37-38 


Standard SPS Mantissa length (08) 


40-41 


Standard SPS Subr. Set ID (02) 


43 


Stardard SPS Noise digit (0) 


45-46 


Standard FORTRAN Mantissa length 


48-49 


Standard FORTRAN Fixed length (04) 


51 


Source of FORTRAN Subprogram (other than disk) (5) = cds, 3=pt 


53 


Gore capacity of object machine 
1 == 20K; 2 = 40K; 3 = 60K; (1) 


55 


Core capacity of source machine, (1) 


57 


FORTRAN Arith and I/O Subr. ID, (1) 



DEFINE DISK PACK LABEL ROUTINE CONTROL RECORD FORMAT 



1 * 

2-6 DLABL 

7-11 ID number to be assigned 

12 Drive number of disk to be labeled 



DEFINE FORTRAN LIBRARY SUBROUTINE NAME 

1 * 

2-6 DFLIB 

7-12 Name (left- justified) 

14-15 DIM number of subroutine being named. 
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DISK UTILITY PACKAGE ERROR CONDITIONS 



Error Messages 



DUP * ERROR 0 1 



DUP * ERROR 02 



DUP * ERROR 03 



DUP * ERROR 04 



DUP * ERROR 05 



DUP * ERROR 06 



DUP * ERROR 07 



Cause 

Field missing from control card. 
"TO" DIM entry number specified 
in DREPL control card is not in use 
in DIM table. 

"TO" DIM entry number, specified 
in a DREPL control card refers to an 
immovable program. 
"FROM" DIM entry number specified 
in a DDUMP , DREPL , or 
DCOPY control card is not in use in 
the DIM table. 

Work cylinders illegally specified 

for program storage by DLOAD or 

DREPL control card entry. 

DIM entry number specified in a 

DDUMP, DLOAD, DREPL , 

DCOPY, or DLETE control card is out 

of range of DIM table entry capacity. 

"FROM" DIM entry number in a DREPL 

control card refers to an 
immovable program. 
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DUP Error Conditions 
Page 2 



Error Messages 



Cause 



DUP * ERROR 08 



DUP * ERROR 09 
DUP * ERROR 10 

DUP * ERROR 11 

DUP * ERROR 12 



DUP * ERROR 13 



DUP * ERROR 14 



DUP * ERROR 15 



Insufficient available storage space 
at location specified by a DIOAD, 
DREPL , DCOFY, DFINE con- 

trol card. 
DIM table is. full. 

Field in DFLIB, or DLABL control card 
contains invalid data. 
Number of modules specified in DFINE 
control card is greater than 4. 
Beginning disk sector address of work 
cylinder in DFINE control card is not 
first address in cylinder. 
Insufficient available storage for spec- 
ified work cylinder (DFINE control card) , 
Number of sectors specified by DFINE 
control card for sequential program list 
exceeds 140 sectors. 
Sector address is non-numeric for 
DCOPY control record. 
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DUP Error Conditions 
Page 3 



Error Messages 



DUP * ERROR 16 



DUP * ERROR 17 



DUP * ERROR 18 



DUP * ERROR 19 



Cause 

Storage location specified by 

DCOPY control card would cause 
program storage to overlap work cyl- 
inders if allowed. 

Starting sector address is greater than 
ending address for DWRAD or DCOPY 
control card. 

Sequential Program table is defined as 
less than required by the present con- 
tents of that table (DFINE control card) 

CORE address of a program to be 
placed in disk in core image format 
is less than 2302. 



DUP * ERROR 20 



DUP * ERROR 2 1 



DUP * ERROR 22 



Name specified by DDUMP , 
DCOPY, or DELET control card is not 
used in Equivalence table. 
Immovable program prevents* 
DCOPY routine from being executed. 
DIM number specified by DELET control 
card is not in use in Equivalence table. 
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DUP Error Conditions 
Page 4 



Error Messages 



Cause 



DUP * ERROR 51 
AAAAAA 



DUP * ERROR 52 
DIM NO IN USE, TYPE 
REC.MK. TO FIND 
UNUSED DIM NO. 



DUP * ERROR 53 
AAAAAA 



DUP * ERROR 54 
AAAAAA 



Name specified is a DLOAD, DREPL, 
or DFLIB control card or a FORTRAN 
or SPS control card has been rejected 
because a duplicate name exists in the 
equivalence table. AAAAAA is the 
rejected name. 

"TO" DIM entry number specified in 
DLOAD control card is in use in DIM 
table . 

Name specified in a DLOAD or DREPL 
control card or a FORTRAN or SPS con- 
trol card has been rejected because the 
Equivalence table (with the exception 
of the first 50 entries) is full. AAAAAA 
is the rejected name. 
Name specified in a DLOAD, DREPL , 
or DFLIB control card or a FORTRAN or 
SPS control card has been rejected be- 
cause the first 50 entries of the Equiva- 
lence table are full. AAAAAA is the 
rejected name. 
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DUP Error Conditions 
Page 5 



Error Messages 



Cause 



DUP * ERROR 55 
CARD SEQUENCE 
NNNNN 



DUP * ERROR 56 



DUP * ERROR 57 



DUP * ERROR 58 



Sequence error has been found while 
reading a program to be loaded to disk 
storage. NNNNN is the sequence num- 
ber of the card that is out of sequence. 
Only cards with an eleven punch over 
the leftmost position of the sequence 
number (column 7 6) are sequence checked; 
therefore, patch cards are excluded from 
the check. 

DIM number supplied in FORTRAN or SPS 
control card is in use in DIM table and 
Name specified in the same card has a 
different DIM number in the Equivalence 
table. 

DIM number supplied in FORTRAN or SPS 
control card is in use in DIM table and 
Name specified in the same card has no 
matching name in the Equivalence table . 
"TO" DIM entry number specified in 
FORTRAN or SPS control card refers to an 
immovable program storage area. 
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DUP Error Conditions 
Page 6 



Error Messages 



DUP * ERROR 59 



DUP * ERROR 60 



DUP * ERROR 61 



Cause 

DIM entry number specified in a FORTRAN 

or SPS control card is out of range of DIM 

table entry capacity. 

Insufficient available storage space at 

location specified by FORTRAN or SPS 

control card. 

DIM table full. 



DISK UTILITY PACKAGE ERROR CONDITION 



OPERATOR ACTION 



Messages 1-22 , After the message is typed, the computer halts. The 
operator may then enter a corrected control record. Depressing the start key 
returns control to the Monitor Control Record Analyzer routine to read the next 
monitor control record. 

Message 51 . No operator action required. The routine continues and 
loads the program without placing the name in the Equivalence table. 

Message 52 . After the message is typed, the computer halts. If the 
operator enters a record mark from the typewriter and depresses the R-S key, 
the disk utility program will assign a DIM entry and load the program. If the 
R-S key is depressed without entering a record mark, control is returned to 
the Monitor Control Record Analyzer routine to read another monitor control 
record. 

Messages 53, 54 . No operator action required. The routine continues 
and loads the program without placing a name in the Equivalence table . 

Message 55 . After the message is typed the computer halts. To restart: 

1. Remove the cards from the hopper. 

2. Depress the Non-process Runout key. 

3. Remove the last two cards from the stacker. 

4. Rearrange cards from steps 1 and 3 in corrected sequence and 
place them in the hopper. 

5. Depress the reader Start key. Note that paper tape contains no 
sequence number, therefore, it can never generate this type of 
error. 
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DUP Error Condition - Operator Action 
Page 2 

Message 56 . No operator action required. The routine continues and 
loads the program, generating a DIM entry, without placing the name in the 
Equivalence table. 

Message 57 . No operator action required. The routine continues and 
loads the program, generating a DIM entry, and places the name in the Equiv- 
alence table. 

Messages 58,59 . No operator action required. The routine continues, 
generating a DIM entry, and loading the program to disk storage. 

Messages 60,61 . After the message types, the computer halts without 
loading the program providing no other output is requested. (If a FORTRAN 
or SPS control record indicates that the compiled or assembled object program 
is to be punched, the program is outputed without halting the computer.) 

To correct the error, a DLOAD, DREPL, or DDUMP monitor control record 
can then be entered in the stacked input to load the program to a different loca- 
tion from the work cylinders. Depressing the start key returns control to the 
Monitor Control record analyzer routine to read the next Monitor Control record. 



Error Message Number 



Routine 
Write Address (DWRAD) 
Alter Sector (DAITR) 
Disk-to-Output (DDUMP) 
Load Programs (DLOAD) 
Replace Programs (DREPL) 

Disk-to-Disk (DCOPY) 

Delete Programs (DELET) 

Define Parameters (DFINE) 

Define Disk feck Label 
(DLABL) 

Define FORTRAN Library 
Subroutine Name (DFLIB) 

FORTRAN or SPS Output 



b 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61, 


X 
































X 




































































































X 






X 




X 




























X 




























X 








X 


X 




X 


X 




























X 


X 


X 


X 


X 














X 


X 


X 


X 


X 


X 


X 


X 


































X 


X 


X 
















































































X 






X 




X 




X 














X 


X 


X 






X 


X 


























X 










X 




























X 




X 
























X 














X 






X 


X 


X 


X 








X 
































X 


















X 
















































X 


















X 


























X 






X 




























































X 




X 


X 




X 


X 


X 


X 


X 


X 



DISK 



UTILITY PROGRAM 



ERROR 



CONDITION TABLE 



SYMBOLIC PROGRAMMING SYSTEMS 2 



Table of Contents 



Page 



I/O Mneumonics Generated Coding 1- 2 

Mo (code) 3 

Mi (code) 4 

1620 Symbolic Programming System Coding Sheets . . . 5-7 

List of SPS Control Record Types 8 

SPS Compiler Description of Error Codes 9-10 

SPS Compiler Disposition of Errors When No ERROR 

STOP Statement is Used , 11-12 

Use of On-line Error Correction in SPS 13 

SPS Error Message After Assembly . . . . . 14 

SPS Output - Listing Formats 15 

SPS Subroutine Set I D 16 

SPS Subroutine Macro Generated Linkage 17 

SPS Subroutine Exponent Over and Underflow Control 18 

SPS Subroutine Error Resultants 19 

SPS Errors at Object Load Time 20 

Typical SPS Deck Set-up 21 

SPS II D Modification Control Records 22 

Define System Symbol Table 23 

PICK Subroutine Parameter Locations 24 

User Written SPS Subroutine ID Number 25 

Adding SPS Subroutines, Modification with Respect to 

PICK and/or Mantissa Length 26-27 

SPS Subroutines Base DIM Numbers 28 

Example of Adding a Subroutine to SPS Library 29-30 

1620 Symbolic Programming System Coding Sheet 31 

Stacked Input for Adding a Subroutine, Assembling and 

Executing a Program That Requires the Added 

Subroutine 32 



I/O Mneumonics Generated Coding 



GET, PUT, SEEK 

TFM IORTR, *+23 
B ENTRY, DEF,7 

where IORTR is core 00565 

ENTRY is one of the following: 

IORBC 00520 Write disk, RBC 

IOPT 00532 Write to output device 

IOSK 00554 Seek a disk record 

IOGT 00566 Read from input device 

DEF is the label of an I/O declarative constant 

CALL LINK or CALL LOAD 

TFM IORTR, *+19 
B7 IOCAL 
DC 3,320 
DC 4 , IIII 

(PSA LLLLL] only if a relocation address operand is given 
DSC 1,@ 

where IIII is the DIM of the called program 

LLLLL is the core load address of the called program 
IOCAL is 00716 

CALL EXIT 

B7 MONCAL (00796) 

I/O Declarative Constants (except DP and DDW) 

DSA IOAREA 

DEF DS ,*-4 

DC 2, MM 

DSC 1,@ 



where IOAREA is the label of the associated IO area 
MM is one of the following: 
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I/O Mneumonics Generated Coding 
Page 2 



DTN 00 

DTA 06 

DCN 04 

DCA TO 

DPTN 02 

DPTA 08 



5 . DDW and DD 



DEF DSC 1, M 0 

DSC 1, Mj 

DSA DCTRL 

fpSA RELOCj only if third operand is specified 

DC 1,@ 



where DCTRL is the label of the disk control field and Mq and Mj 
are as follows: 



Option 

Add the starting address of the work cylinders 
from the communications area (IDC 422-425) to 
the sector address in the disk control field. 
(Used with constant types 1 and 2 only.) 

Same as option zero except, also update the 
"high" indicator in the communication area for 
disk read operation only. This indicator is 
merely a field which contains the core storage 
address of the highest position to be loaded 
plus one. 

Use the sector address in the disk control field 
for the disk operation (SEEK, READ, or WRITE.) 

Use the sector address in the disk control field 
for the disk operation. Also, update the "High" 
indicator in the communication area for read 
operation only. 

A flag over the code (n, n=0 , 1, 2 or 3) causes 
the read/write heads to be repositioned to an 
assigned cylinder (specified in the communica- 
tions area) after any disk I/O operation, except 
seek. 



Option 

Disk read or write in sector mode with WLRC. 
The user must place a group mark (|) in the core 
storage loaction following the last character 
position of the last sector of the record. 

Disk read or write in sector mode without WLRC. 

Disk read or write in track mode with WLRC. The 
user must place a group mark (|) in the core stor- 
age location following the last character position 
of the last sector of the record. 

Disk read or write in track mode without WLRC. 

A flag over code (n n=0 , 2, 4, or 6) causes the 
I/O Routine to branch to a given address after a 
disk read operation. The given address will be 
the "execution address" if an extended disk con- 
trol field is used. Otherwise, it will be the 
"core address" of the disk control field. If code 
n is unflagged, the I/O Routine will branch to 
the first instruction following the disk operation 
calling linkage in the object program 
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Program: Date: Page No. 1 » I nf 

1 2 

Routine: Programmer: _ 
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10 ZU /-J OU 4U OU 00 6Q 65 7Q 75 


0 , 1 i o 


1 I J I 1_ 


S 1 1 


-1 i 1 1 i i 1 1 i — ■ ' — i — 1- i i -...J 1_ 1 1 I 1 __L 1 1 1 ..I , I I I 1 ) i 1 i I , , ■ , i , t , , , , , t , , , , , , 


0 t 2 i 0 


* PR 

i i i' r 


0PUC 


T ARB A HNEM0N1C - RSTR 


0,3,0 


i i i i i 


RSTR 


PADR , L0CA 


0 | 4 | 0 


# PAJ> 


r>i J 


CA AS, &EF&RE > GENERATED O0T5XN& F&L 


0 | 5 ! 0 


J? i i i i i 




PAI)R 9i L0CA 


0 i 6 1 0 


i i i i t 




loo, a , , . ........ 


0,7,0 


< » i i j 


j I ! 


1 1 i t 1 1 1 ! ' 1 i : 1 i 1 ! 1 I J I ' 1 i 1 1 i f I 1 1 . ! 1 > 1 < • ! i I | ( t C 1 » ■ TBI t i i 


0,8,0 






Sf0 GQ0UP MARK 


0,9,0 


, I i t : 




BRAT>R> GML0C 


1,0,0 


i J i t i 




' t S 1 I ! 1 J 1 I 1 ! i I 1 ! 1 i ! 1 1 1 I 1 1 1 1 t I 1 , 1 ; , 1 I ! 1 I 1 , , , , » , , , , ( , , , , , f , , , 


1 , 1 t i 






fcT 1/(6 THzCLARATlS/F C(Zf!sl<ZTAt4T<$ — FXAKAPL£<Z H 


1,2,0 


ncc 






1,3,0 


*\ . « .-^ 


AQFA 




1,4,0 


T ^ A £T A 




Ol** 7 ; ! 1 1 ! ! ! 1 1 ! i ! i 1 1 I i 1 1 1 t f i 1 t f ( 1 I f J f ( 1 J J f ? 1 J i J 1 f j » , , | , , • , , , , j , 


1/5,0 


■ . hRJ 




T //?f TlP/^ / AO_TTl/^ 0$ ISJC T A hJTC — C*/JU O/ P ^ 


1,6,0 


T>Ptr 




^LJJ.DA ^fcws;rt»rt, ^.KfcAW^H * 


1,7,0 


v/ op/ 






1 , 8 1 0 


X ACC 




APM REP0S1TI0 K NIN<?, ; > 1,^ PRESENT* A $PE t CJFJES TME SECT0R 


1,9,0 








2,0,0 


^1 1 




t;/,^ ,t# ,r//,^ ^t/?^,t: mxKim stjpra&e sept&r 




* , ,t.WP 


A, fi£ 


FZRSMCZS, APPR4PKLAJZ J>VA 


11.. 


i i i i i 


1 i I 


i i i ! 1 i i ; i i j i i j i i i \ l i • : ! i i « i ; i , i i i i « j i \ i } , , i . . i , j i , , , . , , 


i i 


i i i i i 


1. 1 t 


1 1 1 ! 1 1 . i 1 ! 1 1 i L. 1 1 .1 I i, I... i.i L I i._L I._ i. . , : I .1 L i ! 1 ! 1 i 1 1 I | | i 1. iiif.ii 


1 1 


i i 1. 1 i 


i i i 


1 1 1 t 1 1 1 i 1 ! J » i ! 1 ! i 1 L_ 1 1 1 I 1 1 i ! : t 1 i 1 1 I 5 i 1 l | | | , ; , , , , , t , , , , , , , , 


. .1 ..1 


i i i i i 


i , i 


1 i J [ f 1 J. J i J I : ! I 1 J 1 J_ .._L_1 J L._^ — L._I — i_ 1 1. 1 1 1 i . : 1 ; ! \ i I i i ■ ; i i , , , ( , , , , t , , , 




ii t _ 


! 1 1 


1 ! i 1 1 ; 1 . I. .1 1 i i ill J _1__L_J i — i_ J— i . i ' I i 1 , t i i f i ■ i i i j ? * : f i ( i { i I , i , ■ 



1620/1710 Symbolic Programming System 
Coding Sheet 



Program: Date: Page No. Ljl__J of 

1 2 

Routine: , Programmer: _ 



Line 

3 5 


Label 

6 11 


Operation 

12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 55 60 65 70 75 




*...V 




CR0 MNBM0NICS EXAMPLES 


1 1 1 1 1 — 1 i ! 1 1 ' j i 1 1 1 1 1 L_J 1 1 1 i i i i , i > i i iii 


0,2,0 






J>BF , 

•^l*- r r ! ! I 1 1 i 1 ! 1 i 1 t 1 1 1 1 


1 — ' — ' — * — i — i— J — i — J — i — i — « — i — i — i i i t — i t i i — i L_i i < i . • i i i , ■ , 


0 i 3 i 0 




. „.J_ i . 1 .. 


1 ! t 1 1 I . . . 1 ! ! . ! 1 1 1 1 1 1 1 I 1 


L_ J 1 1 1 L_J 1 L_J 1 — LI ! i i 1 l \ \ i i i i , i , , , f 


0 | 4 | 0 






T>£F 


* 1 J I 1 1 » ■ 1 1 1 i 1 ! 1 1 1 1 ( 1 1 1 1 I 1 I [ ; , | | , i , , 


0,5,0 






! ! 1 I 1 I i , i I , ■ I i i : i i ■ i i i i 


• ' — i — i — i 1 1 ! — : 1 i 1 1 1 1 1 1 1 ! 1 1 I 1 ! J_. L 1 1 I I I 1 i i , | 


0 I 6 ! 0 




— i — i — i — 


T>£F \RRC 

^! r i;^lWV ; ' f i 1 i < 1 1 : i ! 1 i i ! 


' ' 1 1 1 ' ' 1 L_J 1 1 1 1 1 ! 1 1 i 1 1 1 !_J L__J_. 1 1 1 1 1 1 i , , , 


n , 7 . n 






I i i i I i i ■ ■ i : ; i . i ! " i . . i « i i 


' 1 ' L 1 1 1 , 1 1 ! 1 1 ! 1 ! 1 ! 1 1 1 1 1 1 1 i | | ii.ili,, 


n . fi n 

U | o | U 




SBEK 


^rnH i, i i i i i ! i ■ i i I ! i \ ■■ I i i i 


'< i 1 1 1 ! 1 i 1 1 1 1 1 1 1 i 1 1 t 1 J_J 1 1 1 ' ! ! 1 i I i i i 


0 , 7 , u 






• i i i I i i \ . i , : I i i i i i i i i 


I — I — 1 — 1 — 1 — 1 — 1 — 1 — l i i » 1 1 — 1 — 1 — 1 1 1 I 1 t 1 l l I t I I 1 1 1 i i i . 


1 fi fi 








1 1 1—1 L L 1 1 1 ! 1 I 1 1 1 1 1 t 1 I 1 1 1 t 1 > t t | 


1 1 1 1° 


11111 


CALL 


L, x/YA, y x is K x Mri^ s ,,, i ,,,,,,, , 


, , , ,; i >,JJJ7VmV*?. >. rtffP&K/t/YI /*AM£* IT, MUST, 


1,2,0 


1,1,1 




,«,,.,,, 




i i fi 
1,3,0 








1 « 1 1 1 1 1 1 1 1 1 1 1 , 1 1 1 i ! I ! t i i » i i i i i i | , , 


1 ,4 ,0 


-.11111 






J 1 1 1 J 1 ! 1 1 1 1 ! i 1 ! 1 1 i 1 ! 1 i 1 ! ! 1 t I I t I | , , , 


l ^ fi 






L0AQ>M7 t 


i — f 1 1 1 1 — 1 ! i — i 1 1 i 1 i 1— J 1 1 : ! i j i i i I i | i : i , | i | 


l i. fi 
1 I 6 1° 






ipwpmw , , 


L— 1 1 1 i — « — i — ! — : 1 1 1 1 i 1 1 i i ! 1 I 1 1 > I 1 i i i i 1 I i | 


1,7,0 






L0m>#Z8>ZAOZ 


— 1 — L_ I i j — ■ 1 I- I 1 I 1 1 I 1 ! i i i i i ) i i , i i t i t i I 


1,8,0 






L0A&>mm0.,ReL0& , 


1 L_J 1 L_J i i , L„L_ 1 1 1 i J 1 1 I . 1 ! 1 ( 1 1 ! ! i | | ■ i , , 


1.9,0 






LpAn,NAMG * , , 


1 1 ! 1 i — i : : i L i 1 J I 1- 1 1 t i 1 i I I 1 I I 1 i i i ■ i i , 


2,0,0 






t04P^/W£,,/5OPC? 


1 i 1 1 i 1 i i i i 1 1 i 1 i 1 1 1 1 1 1 1 1 1 1 i » I i 1 i ' | i : 


1 1 






1 1 i ' 1 1 t 1 i 1 1 , 1 ! 1 1 l 1 1 1 [ ! 1 


— 1 i i 1 1 — » 1 : — : i 1 — i ! — i 1 i 1 1 1 i 1 i 1 ! i 1 i j i | i ; i i i 


1 1 








— 1 — ! i 1 — i — 1 , i — I i — 1_ ! ■ i l 1 I l I I l ■ ! i i i i , , 


1.1 




1 1 1 


1 1 1 1 1 1 ! 1 > 1 1 i 1 1 1 \ \ 1 I 1 i I 1 


— 1 — ! 1 — 1 — l_L_' ill! I 1 i I 1 1 1 1. l I I 1 1 l 1 1 i I i l | [ i j 


1 I 




1 1 1 


1 I I 1 1 1 I : 1 ! 1 1 i 1 1 ! J 1 1 t 1 1 1 


— 1 — i — i — L_l A i A. 1 i I l 1 1 ! I i ; i i i i i i i i t i i i i , , 


1 1 




i ; i 


i i 1 1 1 J . ,1 i ! 1 1 ! ! 1 1,1 1,1,1 ; I 1 i 


1 i 1 1 ! 1 1 I i 1 1 : 1 I 1 I \ ' I ( r t i i i i i i i , i , 


I i 


i i 1 i i 


1 ! 1 


1 ! i t 1 . 1 1 1 1 1 1 1 l 1 l . 1 .A .i I i i i _J — L 1 ■ i 1 l 1 . . 1 I 1 l : 1 , l ! i | i i i | | , , , , | | , , , j 



List of SPS Control Record Types 



TWO PASS MODE 

OBJECT CORE n where n = 2, 4, 6 
SUBROUTINE SET nn where nn = 00, 01, 02, 03 
MANTISSA LENGTH n or nn where nn = 02-45 
NOISE DIGIT n where n = 0-9 
ERROR STOP 

ASSEMBLE RELOCATABLE 
BEGIN CARD INPUT 
BEGIN PAPER TAPE INPUT 
BEGIN TYPEWRITER INPUT 
TYPE SYMBOL TABLE 
PUNCH SYMBOL TABLE 
LIST TYPEWRITER 
LIST CARD 
OUTPUT CARD 
OUTPUT PAPER TAPE 



SYSTEM SYMBOL TABLE 
NO SUBROUTINES 

ID NUMBER dddd where dddd is DIM no. to be 

assigned or replaced 
NAME aaaaaa where aaaaaa is name to be assigned 

or replaced 

LIBR 

PUNCH RESEQUENCED SOURCE DECK 



Standard 



ONE PASS 

2 
02 
08 

0 

No error stop 
Absolute 
Card input 



No sym tab type 
No pch sym tab 
No list type 
No list card 
No output card 
No output pt 



No sys sym tab 
With subroutines 
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SPS Compiler Description of Error Codes 

ER1 The capacity of the machine on which the object program is 

to be executed has been exceeded. The processor does not 
take subroutines into account when determining this error. 

ER2 Invalid label or record mark is in a label field. 

ER3 Invalid OP code or record mark is in an OP code field. 

ER4 A label is defined more than once. 

ER5 a. a symbolic address contains more than six characters. 

b. an actual address contains more than five digits. 

c. an undefined symbolic address is used in an operand. 

d. a HEAD character ($) is improperly specified. 
ER6 A DSA statement has more than ten operands. 

ER7 A DSB statement has the second operand missing. 

ER8 a. a DC, DSC, or DAC has a specified length greater 

than 50. 

b. a DVLC has a length greater than 50. 

c. a DMES has a length greater than 100 . 

d. a DNB has a length greater than 99. 

ER9 A DS, DSC, DAC , DVLC, or DMES statement has no con- 

stant specified. 

ER10 a. a DC or DSC statement has a specified length which 

is less than the number of digits in the constant itself, 
b. a DAC statement has a specified length which is less 
than or greater than the number of digits in the constant 
itself. 
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SPS Compiler Description of Error Codes 
Page 2 



ER11 An invalid character is used as a HEAD character in a 

HEAD statement, 
ER12 A HEAD operand contains more than one character. 

ER13 A DMES statement contains an invalid starting mode character. 

ER14 a. a DMES statement contains a control character which 



is incorrectly specified, 
b. a DMES statement has an invalid format; i.e. , stray 
parenthesis , etc. 

ER15 A DMES statement contains an alpha character in a numerical 

field. 

ER16 A DMES statement contains an invalid mode change. 

ER17 a. a relocatable assembly contains a relocation error (see 

rules of relocatability) . 
b. A relocatable assembly contains a DORG with an absolute 

operand. 

ER18 A symbolic name used in a CALL LINK or CAIL LOAD statement 

is not in the Equivalence Table. 
ER19 The storage area allotted for the symbol table has been exceeded. 

ER20 Intermediate output has exceeded disk storage work area 

(program requires two passes). 
ER21 Object output has exceeded disk storage work area. 

ER22 Improper "select" operand is in a CALL statement; i.e. , 

neither LINK, LOAD or EXIT are specified. 



SPS Compiler 

Disposition of Errors When No ERROR STOP Statement Is Used 
NOTE: Processing continues in all cases listed below: 
ER1 No disposition. 

ER2 The label is ignored. 

ER3 A NOP is assembled. 

ER4 The second definition of the label is ignored; the first 

definition of the label is used in the assembly. 
ER5 The operand is assembled as an absolute 00000. 

ER6 The first ten operands are assembled; any remaining 

operands are ignored. 
ER7 The number of elements is set to 1. 

ER8 a - Length is set to 50. 

b - Length is set to 50. 

c - Length is set to 100 

d - Length is set to 99. 
ER9 A field of zeros is generated, equal to the size of the 

length operand for the DC, DSC # DAC, or DVLC constant. 

In the case of a DMES, an end of message is assembled 

and the address counter is increased by 100. 
ER10 a - The length of the constant is used as the length operand. 

b - The specified length is used and the programmer-assigned 
address, if present, is ignored. 
ER11 The HEAD character is set to blank. 

ER12 The first character of the operand is used as the HEAD character. 
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SPS Compiler Error Disposition 
Page 2 

ER13 The starting mode is assembled as the alphabetic mode. 

ER14 An end of message is inserted into the constant. 

ER15 An end of message (7^) is inserted into the constant. 

ER16 A 0 is placed in the next available location following the 

mode change. 

ER17 a - The operand is assembled as an absolute 00000. 

b - The DORG is ignored. 
ER18 A DIM number of 0000 is assembled 

ERI9 Processing continues but no more labels are stored. After 

completion of the intermediate phase, processing stops, the 
following message is typed, and control returns to the 
Supervisor program. 

DISK AREA TOO SMALL. ASSEMBIY DELETED 

ER20 Processing continues, but no more intermediate data is sent 

to disk storage. After completion of the intermediate phase, 
processing stops, the following message is typed, and con- 
trol returns to the Supervisor program. 

DISK AREA TOO SMALL. ASSEMBIY DELETED 

ER21 Processing stops immediately and control is returned to the 

Supervisor program. 

ER22 The statement is ignored. 
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Use of On-line Error Correction in SPS 

1. Include SPS Control Record ERROR STOP in deck. 

2. Error Message is typed out. 

3. RE-ENTER STATEMENT or RE-ENTER OPERANDS typed out. 

4. Erroneous statement typed out. 

5. Operator types in correction following format of 4. 

Type in according to instructions in 3. (Typewriter will position 
to correct starting point.) 

In addition in the two-pass mode: 

During the second pass the processor may type ERXK 

RE-ENTER STMT 

The operator should re-enter the statement exactly as it was 
corrected during pass I. 



i 
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SPS Error Messages After Assembly 



1. EXCEEDED SPECIFIED CAPACITY BY XXXXX 

2. SUBROUTINES OTHER THAN DIV USED 

3. NO DIM ENTRY FOR SUBROUTINE 

4. MORE THAN 5 CYLINDERS OF RELOADABLE OUTPUT 

SSW4 ON TO DUMP OUTPUT, OFF TO CONTINUE, NO OUTPUT 



Corrective action 

1. Not considered a catastrophe error since the user may specify a different 
subroutine set at execution. 

2. Same as 1. 

3. Not catastrophic. User may load subroutine in question to disk prior to 
execution. 

4. Self explanatory. Note that a DIM entry cannot specify more than 999 
sectors, hence the program will not be loaded to disk in any case. 
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SPS Output - Listing Formats 



1. Symbol Table 

A. Typewriter 
LLLLLLbbbAAAAA? 

The ? is blank if the quantity is positive 
a - if the quantity is negative 
a R if the quantity is relocatable. 

B. Cards 

LLLLLLbAAAAA ? bbb Five fields per card. 

2. Program List Deck 



Cards 




1-5 


Page and line no. 


6 


blank 


7-12 


Label 


13 


blank 


14-17 


op code 


18 


blank 


19-78 


operands 



If operands do not extend beyond col 5 9, the following appears on 
the same card, otherwise on the next card. 

61-65 Address of assembled instruction or constant 
66 blank 

Imperative statements only 

67-68 Machine language op code 
69 blank 

70-74 P-operand in machine language 
75 blank 

7 6-80 Q-operand in machine language 

Non- Imperative Statements 

67-71 Length of assembled data 
72 blank 

73-80 If punched, actual assembled data 



SPS Subroutine Set ID 



Subroutine Set 

Divide subroutine for machines not 
equipped with the Automatic Divide 
feature. Does not call out or utilize 
the PICK subroutine. 

Fixed length subroutines for machines 
equipped with the Automatic Divide 
feature • 

Variable length subroutines for machines 
equipped with the Automatic Divide 
feature. 

Variable length subroutines for machines 
equipped with the automatic floating 
point feature (the Automatic Divide feature 
is a prerequisite) . 



SPS Subroutine Macro Generated Linkage 



LINE 


LABEL 


OPER- 
ATION 


OPERANDS & REMARKS 


010 




TFM 


POK+1,0 , *+l 9 


020 




B7 


SUBR , - 6 


030 




DSA 


A, B 


040 




DC 


1 , @ 



SPS Subroutine Exponent Over and Underflow 
Control 



Indicator in location 00401 



^ no error 

T exponent overflow 

1 exponent underflow 

0 value cannot be calculated 

0 FSIN or FCOS loss of accuracy or 

FSQR or FLN negative argument 
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SPS Subroutine Error Resultants 



DESCRIPTION OF ERROR 



CONTENTS 
OF 00401 



RESULTANT 
FIELD 



FA or FS, exponent overflow 
FA or FS, exponent underflow 
FM # exponent overflow 
FM # exponent underflow 
FD, exponent overflow 
FD, exponent underflow 
FD, attempt to divide by zero 



FSQR, input argument is negative 
FSIN or FCOS # input argument has 

exponent value greater than the 

mantissa length 
FSIN or FCOS, input argument has 

exponent value (X) such that 

03 XL, where L is the mantissa 

length 

FEX or FEXT, exponent overflow 
FEX or FEXT, exponent underflow 
FLN or FLOG, attempt to take log 
of zero 

FLN or FLOG, input argument is 
negative 



0 

T 
i 

o 

o 



« • 9 5 9 
00. ..055 
s5 9 • • • 9 5 9 
00. . .055 
99. • • 9 9 9 
00. . .099 
If 0 TIT : 

mantissa of dividend unchanged, 
exponent of dividend = E + 99 
If 0 )~0~ : 

mantissa of dividend unchanged, 
exponent of dividend = -99 

VT7Y 



00. . .055 



SIN (X) or COS (X) 
99* • .999 
00. . .099 

9 9 • • .5^9 

LN ( | x | ) or IDG (|x|) 



SPS Errors at Object Load Time 

CORE CAPACITY EXCEEDED BY XXXXX LOCATIONS 
PROGRAM IS TERMINATED 

SUBR NOT LOCATED IN SUBROUTINE MAP 



IMPROPER IND CODE IN SUBR XXXX 

where XXXX is the first four digits of the subroutine ID no. 
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Typical SPS Deck Set-up 



± j jt J- (end of job ) 



^ Comments 




I. Execute program 
(stored on disk) 



7^ 7^ (end of job) 



Source Deck 



NAME QPTPRQ 



STORE RELOADABLE 



LIST CARD 



* PUNCH SYMBOL TA P^ 



A S S EMBLE RELQCAIAMi: 



SUBROUTINE SET 



.OBJE CT c ore 



¥¥ sps 



COMMENTS 




II. Assemble SPS 
program and 
store on disk. 
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SPS II D Modification Control Records 



1 

2-80 



DEFINE OP CODE or 
DELETE OP CODE or 
DEFINE SYSTEM SYMBOL TABLE 
LIST OP CODE or 
END LIB 



or 



Op Code Definition Card Format 



12-15 Mneumonic op-code 

16-75 Three digit defining code 



Op Code Defining Codes 



XYO 
-XY1 
-XY2 
-XY4 
XY2 
XY3 
XY4 
XY6 
XY7 



XY PPPPP QOOQO 

Subr linkage to Subr XY 

8X PPPPP YQOQO 

4X PPPPP Q00QY 

3X PPPPP Q07QY 

3X PPPPP Q0YQO 

34 PPPPP QOXQY 

46 PPPPP QXYQQ 

47 PPPPP QXYQQ 



Any instruction 
Subr macros 
SIOC instructions 
Mask or Unmask 
Disk instructions 
I/O instructions 
Control instructions 
BI instructions 
BNI instructions 



Define Op Code Error Messages , Action 



ALREADY DEFINED 
NO ROOM IN TABLE 



Ignored 
Ignored 



Delete Op Code Error Message, Action 



No Change 



NOT IN TABLE 
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Define System Symbol Table 



Symbol Definition Record Format 

6-11 Symbol to be defined 
16-75 Symbolic (previously defined) or actual, 
but not asterisk, operand 



As Distributed: 



Error Message, Action 
UNDEFINED SYMBOL XXXXXX 



SYMBOL EQUIVALENCE 



DESCRIPTION 



9RCYL0 
9RCYL1 
9RCYL2 
9RCYL3 



00513 
00515 
00517 
00519 



These are the low-order positions of four 
2-digit fields which contain the numbers 
of cylinders (00-99) where the disk access 
arm is repositioned after a disk operation 
in which a reposition has been requested. 
The four fields refer to drives 0, 1, 2, 3, 
respectively. 



9CCYL0 
9CCYL1 
9CCYL2 
9CCYL3 



02099 
02101 
02103 
02105 



These are the low-order positions of four 
2-digit fields, similar to the previous four. 
However, these positions contain the cylinder 
numbers of the current access arm positions 
(the position of the arm after the last disk 
IORT operation) . 



PICK Subroutine Parameter Locations 



Location Content 

02375 Return address of main line program 

02380 Address of A operand data 

02385 Address of B operand data 

02398 Mantissa length in use 

02401 Noise digit in use 



User Written SPS Subroutine ID Number 



Five digits as operand of DEND statement 
XXNNE 
where XX is Subr set no, 
NN is Subr no, 
E is no, of entry points 



Example: 

DEND 02182 



Specifying Entry Points in User Written SPS Subroutine 



Example: An entry of this type must appear at the beginning 
of source statements „ 



ORIGIN DSA ENTRY 1 , ENTRY 2 , etc. 
DORG ORIGIN- 4 

where ENTRY 1, ENTRY 2, etc. are the labels of the 

subroutine entry points. 



Adding SPS Subroutines 
Modification with Respect to PICK and/or Mantissa Length 

One DC statement can modify up to 25 instructions. Each instruction, 
whether or not it is to be modified, requires two digits in the pseudo con- 
stant , one for the P operand and one for the Q operand. The statement 
itself consists of three operands: the first specifies the length of the con- 
stant which may not be greater than 50 nor less than 2; the second, the ac- 
tual constant; the third, the storage address of the constant. This address 
must be specified as an absolute address of 00350. The P and Q operand 
modifier constants follow: 

P and Q Operand 

Modifiers Modification 

0 No Modification 

1 Add L 

2 Subtract L 

3 Add 2L 

4 Subtract 2L 

5 Modify with respect to PICK, 

no L modification 

6 Modify with respect to PICK, 

add L 

7 Modify with respect to PICK, 

subtract L 



Adding SPS Subroutines 

Modification with Respect to Pick and/or Mantissa Length 
Page 2 

8 Modify with respect to PICK, 

add 2L 

9 Modify with respect to PICK, 

subtract 2L 

The following examples shows how a variable length mantissa subroutine 
may be modified, by use of modifier constants. 



DC 6, 527005, 350 

TF SAVE, 98 

SF SAVE 

TF PCK + 25, SAVE, 6 

TF PCK + 15, CHAR, 6 

B7 PCK + 10 , , 6 



NOTE: 

Intervening DORG statements and constants between 
instructions are never modified in this manner. 



SPS Subroutines 



Base DIM Numbers 



Base Number Subroutine Set 

130 Fixed Point Divide - 00 

100 Fixed Length - 01 

70 Variable Length - 02 

40 Automatic Floating Point 



MACRO: 



FUNCTION: 



IDENTITY: 



EXCH A , B 

To exchange floating point numbers between A and B 
Subr No 18, Set No 02 



Modify op code table by 

A. Load Supervisor Program 

B. XEQ Monitor Control Statement specifying SPS IIB 

Cols 1,2 

3-5 XEQ 
7-12 SPSLIB 

C. DEFINE OP CODE Control record 

D. Op code definition Control record 

Cols 12-15 EXCH 
16-19 -181 

E. ENDLIB statement 

NOTE: Statements B,C,D & E must all be entered from the 

same input device. 

Write the subroutine in SPS language (See page 31.) 

Use the following control records for assembling and loading the sub- 
routine to disk ready for use. 

A. Supervisor Program Load 

B. SPS Monitor Control Statement 

Cols 1,2 jt / 
3-5 SPS 
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Example of Adding a Subroutine to SPS Library- 
Page 2 

C. SPS Control Statements 

(1) ASSEMBLE RELOCATABLE 

(2) LIBR 

(3) ID NUMBER 0088 

70 + 18 = 88 

(4) STORE RELOADABLE 

(5) LIST CARD 

(6) ERROR STOP 



Program: 



Routine: 



Programmer: 



Page No. I , I of 



Line 


Label 


Operation 








Operands & Remarks 
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0,9,0 


i i i i i 


hn , 
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Stacked Input for Adding a Subroutine f Assembling and 
Executing a Program That Requires the Added Subroutine 



'&f¥ (endpfiab; 



Data 



Source Mainline 



<W SPSX502506 



Z j 

I Source Subrout ing 



(*ERROR iSTQE 

f + T Trim r**T%T\ 



LIST CARD 



*STORE RELOADA BLE 



r* ID NUMBER 006 8 



^LIBR 



*ASSFMRT.F RF 



Si sps 



f ^¥ JOBb5 



(endoUob) 



f *END LIB 
L EXCH-181 



f* DEFINE OP CO DE 



f^XE QbS P S LIB 



# JOBb5 




Monitor Control 
.Record Cols 1-4 



V 



Monitor Control Records 
Cols 1-12 



V 



IATABLE 



SPS Control Records 



Monitor Control Records 



SPSLIB Control Records 



Monitor Control Records 
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FORTRAN II- D LIBRARY SUBROUTINES 





Symbolic 
Name 


Subroutine 
Number 


DIM 

Entry 

Number 


Transfer 
Address 


Logarithm (natural) 


LOGF 


1 


10 


02246 


Exponential 


EXPF 


2 


11 


02251 


Subscripting (1 dimension) 


ENTSCI 


3 


12 


02256 


Subscripting (2 dimensions) 


ENTSC2 


4 


13 


02261 


Subscripting (3 dimensions) 


ENTSC3 


5 


14 


02266 


FIND 


F1NTFTD 


6 


15 


02271 


RECORD 


ENTREC 

t - J J. N _L 1VJUVJ 


7 


16 


02276 


FETCH 


ENTFET 


8 


17 


02281 


Routine to load or unload disk buffer 


ENTSWD 


9 


18 


02286 


Routine to write or read arrays 


ENTARR 


10 


19 


02291 


Routine to complete FETCH or RECORI 


> ENTCPT 


11 


20 


02296 


Cosine 


COSF 


12 


21 


02301 


Sine 


SINF 


13 


22 


02306 


Arctangent 


ATANF 


14 


23 


02311 


Square Root 


SQRTF 


15 


24 


02316 


Absolute Value 


ABSF 


16 


25 


02321 



FORTRAN ARITHMETIC AND INPUT /OUTPUT SUBROUTINES 
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Subroutine 


Symbolic 
Name 


Operation 


Floating Point Arithmetic 






Add 

Subtract 

Reverse Subtract 

Multiply 

Divide 

Reverse Divide 
Set FAC to zero 


FAD 

FSB 

FSBR 

FMP 

FDV 

FDVR 

ZERFAC 


FAC + A — > FAC 

FAC - A *FAC 

A - FAC > FAC 

FAC x A — > FAC 

FAC / A > FAC 

A / FAC *FAC 

0 »FAC 


Fixed Point Arithmetic 






Add 

Subtract 

Reverse Subtract 

Multiply 

Divide 

Reverse Divide 


FXA 

FXS 

FXSR 

FXM 

FXD 

FXDR 


FAC + I — * FAC 
FAC - 1 — >• FAC 
I - FAC — * FAC 
FAC x I — > FAC 
FAC /I — > FAC 
I / FAC — » FAC 


Common Subroutines 






Load FAC 

Store FAC 

Reverse Sign of FAC 

Fix a Floating Point Number 

Float a Fixed Point Number 


TOFAC 
FMFAC 
RSGN 
FIX 

FLOAT 


A->FAC or I-»FAC 
FAC -+A or FAC — »I 
- FAC —*FAC 
FIX (FAC) — »FAC 
FLOAT (FAC) ^ FAC 


Exponentiation 






Fixed Point J ** I 
Floating Point A ** (tl) 
Floating Point A ** (tB) 


FIXI 

FAXI 

FAXB 


FAC ** I — >FAC 

l 

FAC ** (II) *+F AC 
FAC ** (±B)-»FAC 


Input / Output 






Read Card 
Read Tape 
Read Typewriter 
Write Card 
Write Tape 
Write Typewriter 


RACD 
RAPT 
RATY 
WACD 
WAPT 
WATY 





FAC - simulated accumulator 
A &c B - floating point variables 
I &c J - fixed point variables 
> - store in 
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FORTRAN II- D SUBROUTINE SET I. D. 



1. no floating-point feature - read in when required 

2. no floating-point feature - in core 

3. floating-point feature - read in when required 

4. floating-point feature - in core 

Any digit higher than four will result in the error message below: 

ER L8 
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NEW FORTRAN SUBROUTINE ERROR CONDITIONS 



Code 



Cause 



Corrective Action 



Dl 



Disk I/O used without a DEFINE 
DISK statement 



Typewriter calls for 
.correction in format 
NNXXXXX 

NN = Nl 
XXXXX = N2 



D2 



Logical record exceeds N2 



Record not written. 
Argument may be 
incorrect. 



D3 



No group mark found at end of 
array that was read from disk. 



FORTRAN II- D CONTROL RECORD FORMATS 



Positions Parameters Punch Symbol Table Punch Object Prog . Load to Disl 

1 # # * * 

2-6 FANDK PSTSN POBJP LDISK 

7 n n 

7-8 ff 
9-10 kk 

7-12 name 
13-16 DIM no. 



where n = 2 means output on paper tape 
n = 4 means output on cards 
ff is the floating mantissa length (02-28) 
kk is the fixed length (04-10) 



Error Messages 

ERROR, INVALID CONTROL RECORD 

F OR K OUTSIDE RANGE 

ERROR, INVALID OUTPUT UNIT CODE 



Error Correction Procedure 

Ready, correct record in input unit, start. 
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FORTRAN COMPILATION DECK SET-UP 




7 

CONSOLE SWITCH USE BY FORTRAN 

A. Compilation - if on: 

1. Type symbol table 

2. Compile arithmetic trace 

3. Compile IF trace 

4. Goof switch 



B. Execution - if on: 

4. Type trace output 
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NEW FORTRAN COMPILATION ERRORS 



TYPE I 

41 Syntox error in disk I/O statement 

42 Disk I/O list omitted 

43 Disk I/O list contains both simple and array names 

44 COMMON exceeds core storage size 



TYPE II 



60 DEFINE DISK statement 

missing 

syntax error, or 
invalid use 



FORTRAN OBJECT PROGRAM EXECUTION FROM DISK 




^Monitor Control Records 
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FORTRAN COMPILATION AND EXECUTION DECK SET-UP 




Monitor Control Records 



FORTRAN SUBPROGRAM AND MAINLINE 



COMPILATION AND EXECUTION 
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ERRORS DURING FORTRAN OBJECT LOADING 



LOAD XXXXXX 



where XXXXXX is the name of a 
called subprogram which the loader 
cannot find in the equivalence table. 



NNNNNN XXXXX OVERLAP 
JOB ABANDONED 



Program or link NNNNNN requiring 
XXXXX locations would overlap storage. 
If program has no name $ is printed 
instead. 



NN XXXXX OVERLAP 



FLIPER XXXXX OVERLAP 



Subroutine no. NN requiring XXXXX 
locations would overlap storage 

FLIPER is the name of the LOCAL 
Subprogram control program. XXXXX 
is its length. 
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FORTRAN LOADER ERROR CODE 



Error 
Code 

LI 



Meaning, Reason 



Invalid LOCAL control record 

Word LOCAL misspelled, misplaced, or 
no asterisk 



Result 



Halt, branch to 
MONCAL* 



L2 



L3 



L4 



Invalid subprogram name in LOCAL record 
Not formed according to FORTRAN rules 

Multiple subprogram name in LOCAL record 
Same subprogram name appears more 
than once for same program or link 

LOCAL subprogram table full 

Greater than 50 LOCAL subprograms 
not allowed 



Halt, branch to 
MONCAL* 

Halt, branch to 
MONCAL* 



Ignore above 50th 
LOCAL subprogram 



L5 



Invalid header record 

Does not conform to standard FORTRAN 
header record 



Branch to MONCAL* 



L6 



L7 



Unequal F or K 

Subprogram F and/ or K does not compare 
with main program F or K 

New subroutine called from LOCAL subprogram 
LOCAL subprogram cannot call new 
subroutine 



Subprogram not loaded 



Subprogram loaded, 
subroutine not loaded 



L8 



L9 



Invalid arithmetic and input/ output subroutine 
set 

Not defined as 1, 2, 3, 4 

In- core subprogram table full 

Greater than 50 subprograms not 
allowed 



Set 1 or 3 loaded, 
depending on version 
loading 

Ignore above 50th 
subprogram 



L10 New subprogram called from LOCAL subprogram LOCAL subprogram 

LOCAL subprogram cannot call new loaded; new subprogram 

subprogram not loaded 



*MONCAL is the symbolic name for Monitor 
Control Record Analyzer routine. 



FORTRAN OBJECT TIME CORE MAP 



00000 - 00099 

00100 - 00401 

00402 - 02401 

02402 - 07500 
or 14000 



Product Area, etc. 
Arith Tables 

Supervisor Communication Area 
Arith and I/O Subroutines 
Mainline Program 
In- core Subprograms 
Library Subroutines 
LOCAL Subprogram Loader 
LOCAL Subprogram Area 
Unused Area 
COMMON Area 
FORTRAN OBJECT TIME DISK WORK STORAGE MAP 



218 Sectors 



21 Sectors 



Arith and 1/ O Blocking Area 
Object Program Working Storage 
Unused Sectors 

LOCAL Subprogram hold area 
Program Call Lists 
COMMON Save Area 
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PROCEDURE FOR ADDING A SUBROUTINE TO THE FORTRAN LIBRARY 

1. Write subroutine in SPS 2-D 

2. The following or equivalent must appear as the first statements. 

SUB DSA ENTRY 1, ENTRY2, , ENTRY9 

DORG SUB- 4 

where ENTRY1, etc. are the symbolic entry points to the subroutine 
up to a maximum of nine. 

3. Assemble the following deck or equivalent 




£ ^ ^ ^ end-of-job 



* DFLIB 



*DFLIB 
X* DLOAD 



DUP 



Source 
Subroutine 



Assemble Reloc 
* LIBR 

I SPS 



7\ 



a 



Where a DFLIB is included 
for each entry point 
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PROCEDURE EOR WRITING FORTRAN SUBPROGRAMS 



IN SPS 2-D 



1. Write subprogram in SPS 2-D 

2. Include the SPS equivalent of a FORTRAN subprogram header 
record as the first statement 



DC 

DORG 



DS 
DC 
DAC 
DVLC 



, 101 

6, 987898, 5-S 

6,NAMEbb, 7-S 

22-S, 5, LAST, 2, ff, 2, kk, 

5, Entry Address-6, 5, 0, 30, 0, 

17, 01234567891234567, 316 

S-100 



where LAST (length of program) is symbolic or actual for the last-plus- 
one location of (or used by) the program. 

3. If the subprogram calls library subroutines, the 30 digit constant, shown 
as zero, will require a one-digit in each position corresponding to the 
subroutine called. 

4. Linkage to library subroutines is coded 



A is the name of the operand. The function is returned to FAC. 

5. If the subprogram calls other subprograms, the following statements must 
occur just prior to the DEND but should not be included in the header 
record as part of the program length: 

DAC 6, NAME AA 
DSA N1LOC 

where NAME AA is the name of the called subprogram and N1LOC is the 
label of a reserved address field within the calling subprogram. 

These two statements must be repeated for each called subprogram. 

All sets should be followed by, 



BTM 



LIBSUB, A 



where 



DC 

DEND 



1,@, *+l 
START 



Linkage to subprograms is similar to 

GGG BTM NAME AA, #+11 

DSA ARG1, ARG2, 

(N1LOC DS ,GGG+6) 

If the subprogram is to act as a FUNCTION rather than a SUBROUTINE, 
then the following statement should appear prior to the return: 

BTM TOFAC, ANS 



Examples of methods of picking up subprogram arguments follow. 
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WRITING FORTRAN SUBPROGRAMS IN SPS - OBTAINING PARAMETERS 



In addition to the header record, linkage to obtain the subprogram parameters 
must be included in the subprogram. If no parameters are needed, or if the 
subprogram knows the location of the parameters, the user writes: 



DC 5,0 
SUBNAM AM SUBNAM- 1,1,10 



B SUBNAM- 1 , , 6 



The subprogram 



If one parameter is needed, and this subroutine is never nested within any 
other function or subprogram, the user writes: 



DC 5, 0 

SUBNAM AM SUBNAM- 1 , 5, 10 

TF INSUB, SUBNAM- 1,11 

AM SUBNAM- 1, 2 



The subprogram 



SUBNAM- 1, 6 



If several parameters are to be moved to the subprogram, a loop may be 
utilized to conserve core storage. The parameters must be stored in the 
subprogram in consecutive order. An example of the coding to accomplish 
this for three parameters is shown below: 



INSUB 


DSA 


0, 0, 0 






DC 


1,@ 






DC 


5, 0 




SUB 


TFM 


TF+6, INSUB-4 






AM 


TF+6, 4, 10 






AM 


SUB-1, 5, 10 


(1) 




TF 


CF+11, SUB-1, 11 


(2) 




BNF 


*+36, CF+11 


(3) 


CF 


CF 


CF+11 


(4) 




TF 


CF+11, CF+11, 11 


(5) 



TF TF INSUB, CF+11 (6) 

AM TF+6, 1, 10 

BNR SUB+12, TF+6, 11 

AM SUB-1,2, 10 (7) 

B SUB-1,,6 (8) 



The instructions that constitute the body of the subprogram are placed 
between number 7 and 8 above. Instruction 7 must add "two" if the 
number of parameters is an odd number, or "one" if this number is 
even. 

The instruction numbered 8 (B SUB- 1 , , 6) returns control to the calling 
program. When writing subprograms in SPS the user must place this 
instruction at every point that a return is required. 
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FORTRAN OBJECT PROGRAM HEADER RECORD 



Mainline 
or 
Link 



_ Word Rec 

,001 00 ,2, 67,987898^1 f N2 f Length < Len 1 



1 2 



digits 



2 5 

First Next Subroutine 
ReservedjLENGTH^ff jkk t Core , Common, Indicators 
2 5 2 2 5 5 30 



Subprogram ,00100 2 t 67 t 987898 i Subprogram Name t 

5 12 6 12 



Entry Address Next Subroutine 

LENGTH.ff ,kk,Less Six t Common Jndicator s 

5 2 2 5 5 30 



00100 The address of the origin of the program less 100. 

2 An indicator to the relocating loader that a constant 

to be relocated is forthcoming. 

67 The number of digits in the forthcoming constant. 

987898 An arbitrarily chosen constant to identify this as a 

header record for a. FORTRAN program. 

Subprogram Name The name of the program in double digit alpha format 

right justified. Only used in subprograms and FORTRAN 
function headers. 

Nl The number of words per disk record. (From the DEFINE 

DISK FORTRAN statement) This field is only present for 
mainline programs and links. 

N2 The number of logical records in the disk, as used by 

the FORTRAN program. (From the DEFINE DISK FORTRAN 
statement) This field is only present in mainline program 
and link header records. 
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Word Length 



The number of digits in the words used to determine a 
logical record. This value is the larger of the floating 
word and the fixed word length. Only found in main- 
line and link header records. 



Rec. Len 



The number of sectors to be used when reading or 
writing logical records. This value is limited to the 
numbers 1 and 2. Only found in mainline and link 
header records. 



Reserved 

(2 Positions) 



This field is reserved for system use in the mainline 
and link headers. 



LENGTH 



The length of the program (This must be an even 
number) 



ff and kk 



The length of the mantissa and the fixed point words 
in this program. 



Entry Address 
Less Six 



The first location in the subprogram less six to enter 
the subprogram. 



First Core 



The first location in the program to begin execution. 
Present only for mainline programs. 



Next Common 



The next location available in COMMON, (i. e. , 
19999) This field is used only if the program is 
a mainline program. 



Sub. Indicators 



A digit position for each library subroutine name 

in the FORTRAN System (i.e., SINF, SQRTF, etc.) 



This completes the data outputtejd on one output record. 

The identification record occupies one whole sector when it is on the disk. 
The balance of this sector beyond the record shown above is ignored by the 
subprogram loader. The format for the balance of this sector, if the program 
is in relocatable format, is shown below: 



0030021701234567891234567 
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FORTRAN LOCAL AND DATA CONTROL RECORD FORMATS 



CHARACTER 



LOCAL 



DATA 



2-6 



LOCAL 



DATA b 



7-80 



Freestyle: 



blank 



(1) Mainline Link 
Name 

(2) Comma 

(3) Local Subprogram 
Name 

(4) repeat (2) and (3) 

as often as required 
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